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SECTION  I 

PROGRAM  DESCRIPTION 

This  manual  is  intended  as  an  aid  to  the  EXEMPT  program  listing  for  an 
individual  knowledgeable  with  the  use  of  EXEMPT  and  competent  as  a FORTRAN 
programmer  on  the  CDC  6000  and  CDC  7000  series  computers.  This  manual,  when 
used  in  conjunction  wi'.b  a listing,  will  allow  EXEMPT  to  be  supported,  modi- 
fied, or  extended.  Due  to  the  complexity  of  the  program,  these  functions 
should  not  be  attempted  without  first  obtaining  a detailed  understanding  of 
the  program  structure,  data  flow,  and  functional  flow  when  executing  parti- 
cular commands.  The  program  is  well  documented  with  comments  indicating  the 
operations  being  performed.  The  remainder  of  this  document  identifies  the 
data  variable  and  their  functions  for  each  major  module.  Functional  flow- 
charts are  provided  for  each  EXEMPT  and  SLAM  command. 

EXEMPT  is  a high  order  user-oriented  language  to  be  used  as  an  aid  to 
the  analyst  in  solving  transfer  functions  in  the  frequency  or  time  domain. 
EXEMPT  is  a modularized  task-oriented  code.  The  architecture  of  the  code  is 
presented  in  Figure  1.  The  EXEMPT  driver  initializes  the  processing  and  is 
the  main  interface  to  the  host  computer  system. 

The  processing  begins  with  the  Language  Input  Processor  (LIP)  which 
reads  and  decodes  each  card  until  an  END  or  RUN  directive  is  encountered. 
Control  then  returns  to  the  EXEMPT  driver  which  will  pass  program  control  to 
the  Command  Language  Processor  (CLP).  The  CLP  reads  the  argument  list  gener- 
ated by  the  LIP  and  calls  the  appropriate  module  to  perform  the  operation. 

Two  passes  are  made  through  the  argument  list.  The  first  pass  determines  the 
correctness  of  the  user's  input  by  checking  the  syntax  of  each  statement. 

Each  task  is  performed  to  a point  short  of  manipulating  data  and/or  estab- 
lishing peripheral  files  needed  for  execution.  The  second  pass  is  the  actual 
execution  of  the  user's  input.  Symbol  attributes  are  established,  peripheral 
files  are  assigned,  and  data  are  manipulated  during  pass  2.  At  this  point,  a 
symbol's  data  are  assigned  storage;  single  element  symbols  are  stored  in  core 
while  multielement  symbols  are  stored  on  the  current  random  access  disk  file. 
Since  EXEMPT  may  encounter  large  data  sets,  random  access  cuts  down  on  the 
core  size  needed.  Data  are  retrieved  from  the  random  access  system  and 
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Table  2(a) 

SUBROUTINE  BREAKDOWN  OF  EXEMPT  BY  SEGMENT 


MAIN  SEGMENT 

DRIVING  PROGRAM  - EXEMPT 
SUBROUTINES: 


ALTFIL 

BLKDAT 

BLKZ 

CLOSEPP 

CLOSRM 

CNGSUB 

CNTPT 

FILCOD 

GETKW 

GETMYC 

KWDVAL 

MAG 

PAR 

PLTDAT 

PRESCN 

RECOVR 

RSCALE 

SCAN 

SCNERR 

SCNLMT 

SCNPRT 

SHELL 

SYMUPD 

TRIKWD 

YNC 

ZEROX 

INPDRV  SEGMENT 

DRIVING  PROGRAM  - INPDRV 

SUBROUTINES : 

DIRMAN 

FNDARG 

LIPPRT 

LITSCH 

PARPRT 

PARSE 

PARTSK 

PLIST 

SYMLIT 

SYMSCH 

CLP  SEGMENT 

DRIVING  PROGRAM  - EXECUT 
SUBROUTINES: 


ASINFIT 

CHNGLFN 

CONVRT 

CPUN 

CTOUT 

DELCMD 

DSKCLS 

DSKOPN 

EXINTO 

FILE 

FILNAM 

FRQOUT 

GETDAT 

GETFET 

GETITL 

GETPRM 

INOUT 

LIST 

LSTCMD 

MEMCHK 

MEMORY 

MERGE 

MRGDRV 

NAMUN 

NXTOPR 

OPEN 

PACK 

PCHCMD 

PRGCMD 

PUNCHC 

PUTDAT 

RDCCMD 

RENAME 

RDFCMD 

RELOUT 

RENAME 

SAVCMD 

SEQCMD 

TTLCMD 

VERIFY 
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Table  2(a) 

SUBROUTINE  BREAKDOWN  OF  EXEMPT  BY  SEGMENT  (Concluded) 


u 

1 1 

[i 

t DMP  SEGMENT 


DRIVING  PROGRAM  - EXPDRV 

■1 

SUBROUTINES : 

1 

AITKEN 

ARITHOP 

BADIDX 

EDIT 

EDTDRV 

FFT 

FTFDRV 

FUNDRV 

FWDFT 

INTRP 

INVFT 

LODLST 

NTRPDR 

OMEGA 

PHZSHF 

I 

POWER2 

SHFZER 

TABFUL 

TRDEXP 

TRDSIN 

XBJCAL 

MYCOM0-MYCOM9 

OPR0-OPR9 

SUBA-SUBZ 

SUBDRV  SEGMENT 

DRIVING  PROGRAM  - SUBDRV 

SUBROUTINES: 

SAVDAT  SUBPRM 

ALSO,  ALL  Bl/SLAM  SUBMODELS  ARE  INCLUDED  IN  THIS  SEGMENT. 

PLTFIL  SEGMENT 

DRIVING  PROGRAM  - PLTDRV 

SUBROUTINES: 


AXIS 

AXNUM 

CHRCNT 

CKFMT 

ELI 

EL2 

EL3 

ENDPTS 

LABEL 

LAEM 

LOGLIM 

MINMAX 

NXTCHR 

OPENPP 

PDATA 

PLT 

PRTPLT 

SCALE2 

TIMDAT 
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Table  2(b) 
SEGLOAD  DIRECTIVES 


• MAIN  SEGMENT  EXEMPT  ROUTINES 
EXEMPT  INCLUDE  BLKOAT.PLTOAT 

• MAIN  SEGMENT  SYSTEM  ROUTINES 

• 

EXEMPT  INCLUOE  GET.* A .OPEN. WA . CLSF. WA . °UT. »A , PT*R . SQ.GTWR. SO 
EXEMPT  INCLUDE  SXBL.sQ.SKSB.SQ.CHEX.RM.OPES.SQ.SKSF.SQ 
EXEMPT  INCLUOE  SKFF.Sa.SKFP.SU.wTMK.SU.M.SQ.MEMGRM 
EXEMPT  INCLUDE  DT.SQ.R.SQ 
EXEMPT  INCLUOE  PLOTS. GET. RM 

• RUN  TREE 

RUN  TREE  EXEMPT-<CLP«INPDRV> 

• SLAM  TREE 

SLAM  TREE  SU8DRV- I AS1 91 8. AV8A Y.COAX .COCK»T.CONDUI T, ENGINE .NFANT , INDCOU.M 
. AflBEA. PI  TOT. RAOALT. RADAR. RVBEA. SHI ELD.SNGLIN.AEABAY.aEBAOP.AROOT.tUlELL. 
. WaGND . SF I ELO • AV  GS«T . PNL JNT • COUPLER ) 

• DIRECT  MANl3ULATION  PROCESSOR  TREE 

OMP  TREE  EXPDRV- (API THOP*  EDTDRV.FTFDRV .FUNDRV.LODLST.MRGDRV .NTRPOR* OMEGA 
• .PMZSHF (TROEXP.TROSIN) 

• plot  tree 

PLTFIL  TREE  PLT0RV-(0PENPP.PLT.LSERR.PRTPLT,SCALE2I 

• COMMAND  LANGUAGE  PROCESSOR  TREE 

CLP  TREE  EXECUT-lDMP.SLAN. PLTFIL. EX  INTO. PCHCMO.OSKOPN.DSKCLS.RDCCMD.SAWC 
• MO . TTLCMO . PRGCMO . RENAME . OELCMD ) 


EXEMPT  GLOBAL  KWNAM1 * X WN AM2 * K WN AM3 * K WN AM4 » K WN A M5.FMTPTR* DEFALT 
EXEMPT  GLOBAL  OEFLST • ARGT YP.LOCDAT . TMPF I l »ERH .OUTFl .KWTASK 
EXEMPT  GLOBAL  HOLSTR.ERMOOE . ARGTBL .MASK . KEYWRD.MSTRG.OSKNAM.F I TS.CHAR 
EXEMPT  GLOBAL  XQTTBL . SYMO AT ,P ARTBL • SCNT8L. ANGDAT 
EXEMPT  GLOBAL  PLTFMT .PLTlaB .PLTlGV .PLTCMI .PLTCM2.PLTCM3.PLTCMA 
• 

* GLOBAL  SYSTEM  COMMON  BLOCKS 

• 

EXEMPT  GLOBAL  08. 10. .FCL .C. . PUT. FO.REW.FO. CLSF. FO . OPEN. FO. GET .FO 
EXEMPT  GLOBAL  CON. RM. AOB.RM 
EXEMPT  GLOBAL  MEMC.RM. IO.BUF. 

• 

EXEMPT  GLOBAL  PLTCOM 
ENO  EXEMPT 


t i riff  iVv  I • . i . 


The  argument  list  is  extracted  from  the  NARr.Tn  „ 


TAPE  3 


TAPE4 


TAPES 


TAPE6 

TAPE8 

TAPE67 

TAPE98 


TAPE99 


Table  3 

EXEMPT  LOGICAL  FILES 


DESCRIPTION 

Output  file  from  scanning  input  units  TAPE4 
and  TAPE5  --  this  will  be  the  input  to  the  LIP 

Alternate  user  input 

User  input  unless  an  ALTFIL  command  has  been 
detected 

Output  file 

Punch  file 

Input  to  SFIELD  created  by  the  routine  WIRANT 

METAPLOT  output  file 

Random  access  data  base  file 
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loaded  into  memory  only  when  needed  and,  likewise,  data  are  unloaded  from 
memory  and  placed  on  the  random  access  system  when  no  longer  needed.  (For  a 
complete  description  of  the  random  access  system,  refer  to  the  EXEMPT  Users 
Manual) . 

During  pass  2,  logical  operations,  SLAM  operations,  and  arithmetic 
operations  are  executed.  Each  user  command  is  executed  sequentially  by  the 
module  designed  to  interpret  the  argument  list  specified.  Intramodule  commu- 
nication is  done  through  the  symbol  table  attribute  list  and  other  data 
structures  stored  in  the  named  common. 

When  the  final  task  has  been  completed,  control  returns  to  the  EXEMPT 
driver.  If  a RUN  directive  had  been  encountered,  the  LIP  is  recalled  for  the 
execution  of  another  set  of  commands.  If  the  LIP  is  not  recalled,  the  driver 
completes  execution  by  closing  the  random  access  system  file. 

The  use  of  modular  construction  allowed  EXEMPT  to  be  loaded  using  the 
segmentation  loader  available  on  the  CDC  system  at  the  AFWL.  Figure  2 illu- 
strates the  segments  by  name.  By  comparing  Figure  2 to  Figure  1,  one  can  see 
how  the  segments  and  architecture  parallel  one  another. 

Table  1 contains  a list  of  all  the  subroutines  within  EXEMPT  and  Table 
2(a)  is  a subroutine  breakdown  of  EXEMPT  by  segment.  Table  2(b)  contains  the 
SEGLOAD  directives.  The  EXEMPT  logical  file  names  (LFNs)  are  presented  in 
Table  3 with  a description  of  their  use. 

The  remainder  of  this  chapter  discusses  each  major  section  of  the  archi- 
tecture, shown  in  Figure  1,  down  to  level  III.  Section  III  gives  functional 
flowcharts  down  to  the  subroutine  level  for  each  user  requested  operation. 

1.  EXEMPT  DRIVER  DESCRIPTION  - LEVEL  I 

The  sequence  of  operations  is  shown  in  the  EXEMPT  driver  functional 
flowchart  which  is  illustrated  in  Figure  3. 

The  first  operation  of  the  EXEMPT  driver  is  to  call  the  subroutine 
PRESCN  which  reads  the  user's  input  up  to  an  end  of  file  (EOF)  on  LFN  TAPE5 
and  writes  each  statement  to  LFN  TAPE3.  The  function  of  PRESCN  is  twofold. 
First,  as  each  input  card  image  is  read,  all  blank  cards  and  comments  are 
ignored.  Also,  for  those  card  images  that  contain  more  than  one  statement 
per  image,  PRESCN  breaks  them  up  so  that  there  is  only  one  statement  per  card 
image  on  unit  3.  Secondly,  the  ALTFIL  and  SCAN  directives  are  executed  in 
PRESCN. 
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EXEMPT 


READ  USER’S 
INPUT  AND 
WRITE  TO 
UNIT  3 
IGNORING 
COMMENTS 
(PRESCN) 


LANGUAGE 

INPUT 

PROCESSOR 

(INPDRV) 


LIP 

ERROR 

? 


COMMAND 

LANGUAGE 

PROCESSOR 

(EXECUT) 


LIP 

RECALL 

? 


CLOSE  RANDOM 
ACCESS 
SYSTEM 


Figure  3.  EXEMPT  Functional  Flowchart 
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The  next  operation  is  to  call  the  subroutine  INPDRV  which  is  the  main 
driver  for  the  LIP.  If  no  errors  were  detected  by  the  LIP,  processing  con- 
tinues; otherwise,  EXEMPT  skips  the  execution  phase  and  checks  to  see  if  the 
LIP  is  to  be  recalled. 

The  subroutine  EXECUT,  the  main  driver  for  the  CLP,  is  then  called  for 
code  execution.  If  the  CLP  detects  an  error,  control  returns  to  the  EXEMPT 
driver.  If  the  LIP  is  to  be  recalled,  the  same  process  is  repeated;  other- 
wise, the  random  access  file  system  is  closed  and  EXEMPT  is  terminated. 

When  the  LIP  is  to  be  recalled,  all  symbol  attributes  and  their  asso- 
ciated data  remain  intact,  and  all  peripheral  files  that  were  open  remain 
open.  Thus,  when  the  LIP  is  recalled  there  is  no  change  to  the  internal 
structure  or  the  interface  to  the  host  computer. 

2.  LIP  DRIVER  - LEVEL  II 

The  LIP  is  responsible  for  decoding  the  user's  input  into  a form  that 
will  be  more  efficient  for  execution  by  the  CLP.  The  resultant  argument  list 
is  a coded  list  that  is  explained  in  more  detail  in  Section  II. 

The  functional  flowchart  is  shown  in  Figure  4.  The  first  function  of 
the  LIP  is  to  initialize  particular  variables  and  arrays  used  by  the  LIP. 
These  include  the  argument  list,  loop  counter,  and  the  END  and  RUN  flags. 

The  next  operation  is  the  calling  of  subroutine  SCAN  whose  primary  function 
is  that  of  a lexical  analyzer.  This  is  the  most  basic  phase  ot  any  trans- 
lation. The  input  program  is  subdivided  into  its  elementary  items  (i.e., 
numbers,  operator  symbols,  delimiters,  keywords,  blanks,  etc.).  Each  item 
type  is  identified  and  each  item  of  a statement  has  an  associative  type  tag 
when  passed  to  the  next  phase  of  operation,  PARSE.  This  is  illustrated  in 
the  scanner  functional  flowchart  of  Figure  5. 

The  function  of  the  PARSE  subroutine  is  to  identify  a string  of  items 
and  form  them  into  a statement  of  one  of  two  types.  The  first  type  is  an 
arithmetic  expression.  These  are  identified  when  the  second  field  of  a 
statement  contains  an  equal  sign.  The  argument  list  is  built  using  Reverse 
Polish  Notation  (RPN)  for  arithmetic  expressions.  Due  to  the  structure  of 
the  RPN  stack,  the  equal  sign  will  be  the  last  item  placed  on  the  argument 
list. 
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The  second  type  of  statement  is  the  command  declaration.  Command  declara- 
tions are  determined  by  analyzing  the  first  field  position.  Once  it  has  been 
determined  that  a statement  is  a command,  the  format  task  table  is  analyzed. 
This  table  contains  all  required  and  optional  argument  types  for  each  command. 
Each  argument  type  is  searched  for  in  the  input  stream.  The  value  for  an 
argument  is  loaded  into  an  internal  storage  table,  either  the  symbol  or 
literal  table,  and  a pointer  to  its  location  is  placed  on  the  argument  list. 

If  an  argument  is  not  present,  a NOPCOD  (-999999)  is  left  on  the  argument 
list.  After  all  argument  types  are  searched  for,  the  task  keyword  is  placed 
in  the  argument  list  followed  by  an  end  of  statement  code.  The  SCAN  subrou- 
tine is  then  recalled  if  an  END  or  RUN  declaration  has  not  been  detected. 

PARSE  will  set  the  appropriate  flags  for  these  declarations  when  they  are 
encountered.  Also,  when  the  END  or  RUN  declarations  are  identified,  an 
additional  end  of  statement  is  placed  on  the  argument  list.  (Note:  A RUN 
declaration  means  the  LIP  is  to  be  recalled  when  the  user  input  stream  has 
been  completed.)  A pictorial  description  of  the  argument  list  is  shown  in 
Figure  6 and  the  parsing  functional  flowchart  is  shown  in  Figure  7. 

When  the  last  statement  is  detected  (RUN  or  END),  control  transfers  to 
the  CLP.  The  structures  recognized  by  the  LIP  are  processed  and  the  execu- 
tion of  the  user's  input  begins. 

3.  CLP  DRIVER  - LEVEL  II 

The  CLP  is  the  central  phase  of  translation  for  the  user's  input. 

Besides  executing  the  code,  a number  of  subsidiary  functions  are  also  done. 

The  symbol  table,  random  access  system,  and  peripheral  device  tables  are 
maintained  and  most  error  detection  is  done  during  this  phase. 

As  illustrated  in  the  functional  flowchart  of  Figure  8,  the  CLP  is 
actually  split  into  three  subprocessors.  One  of  these  subprocessors  is 
called  when  a specific  operator  type  is  detected.  When  a replacement  opera- 
tor (=)  is  detected,  an  arithmetic  operation  is  implied  and  the  subroutine 
EXPDRV  is  called  to  execute  the  statement.  Logical  operations  and  SLAM 
operations  both  end  with  an  end  of  statement  code  operator.  However,  the 
command  code  for  both  types  of  operations  is  loaded  into  the  argument  list 
just  prior  to  the  end  of  statement  so  that  determining  the  type  of  operation 
is  done  by  polling  the  argument  list  entry  at  this  location.  The  subroutine 
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EQUAL  SIGN 


STATEMENT  I 


ARGI 

ARG2 

COMMAND  ] 

END  OF  STATEMENT 
ARGI 

COMMAND  2 

END  OF  STATEMENT 
EXPRESSION  2 
EQUAL  SIGN 

EXPRESSION  3 
EQUAL  SIGN 

ARGI 

ARG2 

ARG3 

COMMAND  3 

END  OF  STATEMENT 
END  OF  STATEMENT 


"V 

) STATEMENT  2 

^ STATEMENT  3 

STATEMENT  k 
^ STATEMENT  5 


STATEMENT  6 


\ LAST  STATEMENT 
J (END  OR  RUN  DECLARATION) 


Figure  6.  Argument  List  Table 


h 


i 


CCLP  DRIVER 
(EXECUT) 


Figure  8.  Functional  Flowchart  of  the  CLP  Driver 
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SUBDRV  is  called  for  execution  of  the  SLAM  declarations  and  the  CLP  itself 
executes  the  other  command  declarations. 

The  above  three  subprocessors  are  further  subdivided  into  smaller  pro- 
cessors as  more  and  more  information  is  determined  in  a statement.  This 
structure  is  clearly  illustrated  in  Figure  1.  Each  of  the  subprocessors 
interact  among  themselves  through  information  stored  in  various  data  struc- 
tures, particularly  the  symbol  table.  For  example,  the  subprocessor  that 
performs  the  TYPE  declaration  does  little  more  than  enter  the  declared  type 
into  the  symbol  table.  The  arithmetic  processor  will  subsequently  use  the 
declared  type  to  generate  the  appropriate  type-specific  operation  for  the 
code. 

4.  DATA  FLOW  BETWEEN  PROCESSORS 

The  basic  data  structure  is  shown  in  Figure  9.  This  figure  illustrates 
the  input  arrays  used  by  each  process  and  the  resulting  output  arrays.  The 
user's  input  will  initially  reside  on  unit  5.  However,  if  the  user  wishes, 
all  or  part  of  the  input  may  reside  on  unit  4.  Transfer  to  unit  4 for  input 
is  done  using  the  ALTFIL  command.  The  card  image  output  of  the  prescanner  is 
unit  3. 

The  LIP  uses  other  tables  to  aid  in  decoding  each  field  within  a state- 
ment. These  tables  include  those  that  contain  the  operators,  symbols,  alpha 
characters,  numeric  characters,  and  keywords.  The  scanner  output  arrays  are 
the  field  codes  table  (NCODE)  and  the  field  value  table  (NVAL) . The  field 
value  table  will  contain  either  the  location  of  the  field  within  a character 
table  (i.e.,  operator,  symbol,  keyword,  or  Hollerith  string)  or  the  value  of 
the  field.  The  field  codes  table  will  contain  a code  for  the  type  of  field 
so  that  the  parser  will  know  whether  to  look  up  the  value  in  the  character 
tables  or  to  fetch  the  value  directly  from  the  field  table.  Table  4 illus- 
trates the  above  discussion. 

The  parser  uses  the  NCODE  and  NVAL  tables  to  decode  a statement.  The 
coded  result  is  stored  in  the  argument  list  table  (NARGTB).  Also,  the  parser 
generates  the  symbol  table  (SYMTBL) , literal  table  (LITNUM) , and  loop  table 
(NLOOPS)  as  each  statement  is  decoded.  Control  is  then  passed  to  the  CLP. 
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Figure  9.  Data  Flow  Between  Processors 


Table  4 


ASSOCIATION  OF  THE  CODED  FIELD  TABLE  TO  THE  FIELD  TABLE 


TABLE 

TABLE 

VALUE 

MNEMONIC 

NCODE* 

NVAL+ 

1 

NCCDKW 

KEYWORD 

Keyword  location  in  KEYWRD 

2 

NCODOP 

OPERATOR 

Operator  location  in  MONOPR 

3 

NCODIN 

INTEGER 

Integer  value 

4 

NCODFP 

REAL 

Floating  point  value 

5 

NCODAL 

ALPHA 

Alpha  in  right-justifed  BCD  ** 

6 

NCODSM 

SYMBOL 

Symbol  location  in  ISYM 

7 

NCODSE 

END  OF 
STATEMENT 

Zero  filled 

8 

NCODHS 

HOLLERITH 

STRING 

Hollerith  string  location  in 
the  Hollerith  string  array 
listing 

* NCODE  - FIELD  CODES  TABLE 
+ NVAL  - FIELD  VALUE  TABLE 

**  BINERY  CODED  DECIMAL 
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The  argument  list  is  extracted  from  the  NARGTB  array  and  transferred  to  the 
LSTARG  array  for  subsequent  use  by  the  subprocessors.  This  is  done  to  main- 
tain the  integrity  of  the  NARGTB  array  from  pass  1 to  pass  2.  The  argument 
list  table  (LSTARG)  passed  to  each  major  driver  subroutine  from  the  CLP  is 
actually  only  one  statement  pulled  from  the  master  argument  list  table  (NARGTB). 
The  shortened  argument  list,  symbol  table,  and  literal  table  all  interact  to 
generate  data  in  the  array  BLNKCM  before  the  data  are  stored  in  the  random 
access  system. 

Section  II  gives  in-depth  discussion  of  the  common  blocks  containing  the 
data  structures.  Also  included  are  functional  flowcharts  of  each  command 
available  within  the  present  language  and  the  functional  flowcharts  of  the 
arithmetic  operations. 


SECTION  II 

DATA  STRUCTURES 

Of  important  to  every  language  is  the  linkage  of  each  of  its  processor 
modules  through  data  structures.  The  data  structures  are  a collection  of 
items  contained  in  several  tables  which  are  related  to  each  other  in  some 
fashion.  These  tables  and  the  common  blocks  containing  them  are  discussed  in 
the  following  sections.  Each  table  briefly  discusses  its  architecture  and 
each  common  block  is  fully  described  by  including  a definition  of  each  vari- 
able contained. 
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1.  COMMON  BLOCK  GLOSSARY  (Variable  Name  and  Common  Location) 


AXISX 

m 

• 

pltfmt 

IOECER 

- 

• 

ERMOOE 

AX1SY 

- 

• 

pltfmt 

IDIG 

• 

• 

chartr 

CALCP 

- 

» 

pltcmi 

IDPCOM 

• 

# 

PLTCM4 

CHAR 

- 

• 

chartr 

idplt 

- 

• 

ERR 

COSA 

• 

• 

PLTCM3 

IDUMP 

• 

# 

ERR 

CM 

m 

• 

PL  T CM2 

IEOS 

• 

XOTTBL 

DBGPRT 

• 

• 

SCNTBL 

IEQUAL 

- 

# 

SCNTBL 

DFET 

- 

• 

MSTRG 

IERCOO 

- 

* 

ERMOOE 

ENORM 

m 

• 

ANGOAT 

IERROR 

• 

• 

ERMOOE 

ERRSCN 

- 

# 

SCNTBL 

IFIUO 

• 

# 

OSKNAM 

FACTE 

m 

• 

ANGOAT 

IFITW 

- 

• 

FITS 

FACTH 

- 

• 

ANGOAT 

IF! TWO 

- 

« 

FITS 

FIRST 

w 

• 

SCNTBL 

IFLNOB 

- 

• 

OSKNAM 

fltlit 

m 

• 

PARTBL 

IGNORE 

- 

• 

SCNTBL 

FMAX 

- 

• 

ANGOAT 

IL 

- 

• 

PL  T CM3 

FMIN 

• 

• 

ANGOAT 

ILLCHR 

- 

« 

ERMOOE 

FRQFIL 

- 

« 

DEFlST 

IMESG 

- 

• 

PLTCM2 

FRQMAX 

- 

• 

deflst 

IPAREN 

- 

• 

SCNTBL 

FRUMIN 

m 

• 

oeflst 

IPASS 

- 

• 

XOTTBL 

fulfrm 

m 

• 

pltlgv 

IPEROO 

m 

• 

SCNTBL 

GREAL 

- 

• 

oeflst 

IPGNUM 

- 

• 

PLTCM2 

hl 

- 

# 

PL  T CM3 

I PLUS 

- 

• 

SCNTBL 

HLB 

m 

• 

pltcmi 

1SEGMT 

- 

« 

ANGOAT 

HML 

- 

• 

pltcmi 

ISOFF 

• 

• 

SCNTBL 

HNO 

- 

• 

PLTCMI 

ISON 

- 

# 

SCNTBL 

HSURF 

- 

• 

ANGOAT 

ISTMT 

- 

» 

SCNTBL 

IALPH 

- 

• 

CHARTR 

ISTOR 

- 

• 

SYMTBL 

I ALPHA 

- 

# 

SCNTBL 

I SYM 

- 

• 

CHARTR 

I BLANK 

m 

# 

SCNTBL 

ISYMST 

- 

• 

SYMTBL 

IBLKCD 

m 

» 

SCNTBL 

ITYPED 

- 

» 

LOCOAT 

IBLKCM 

m 

• 

BL'MCM 

IUN 

• 

MSTRG 

IBLKNM 

m 

• 

OSKNAM 

I UNOX 

- 

• 

MSTRG 

IBLNK 

- 

« 

PLTCM2 

IWARN 

m 

• 

ERMOOE 

IBYTSZ 

- 

# 

SCNTBL 

IZERO 

- 

• 

SCNTBL 

ICHAR 

m 

• 

PLTCM3 

JFET 

- 

« 

TMPFIL 

ICONO 

- 

* 

ERMOOE 

JFILE 

m 

« 

tmpfil 

I DA MGR 

m 

• 

ERMOOE 

JNUM 

- 

» 

TMPFIL 

I DO 

« 

OSKNAM 

junit 

- 

• 

TMPFIL 

22 


kolatt 

. 

SYMTBL 

KMOROP 

• 

KMNAMl 

kolcnt 

- 

PARTBL 

KMD1 

• 

KMNAMS 

KOLCOO 

m 

PART  BL 

KM02 

m 

KMNAMS 

KOLFAM 

m 

symtbl 

KM03 

m 

KMNAMS 

KOLLBL 

m 

PARTBl. 

KMED1T 

• 

KMNAM2 

KOLLOC 

m 

SYMTBL 

KMEND 

- 

KMNAMl 

kolnam 

- 

SYMTBL 

kmengi 

• 

KMNAMS 

KOLNPT 

- 

SYMTBL 

kmeof 

- 

KMNAMl 

KOLTIM 

- 

PARTBL 

kmeps 

• 

KMNAMS 

KOLTSK 

• 

PARTBL 

kmerr 

- 

ERMOOC 

koltyp 

m 

SYMTBL 

KMEXP 

• 

KMNAM2 

KOLVAL 

- 

PARTBL 

KMFILE 

• 

KMNAMl 

KPRNCT 

m 

PARTBL 

kmfltf 

- 

KMNAMS 

ktemot 

m 

PARTBL 

kmfmax 

- 

KMNAMS 

KURSQF 

- 

tmpfil 

kmfmin 

• 

KMNAMS 

KNA 

• 

KMNAMS 

kmfmtp 

- 

FMTPTR 

KMABS 

« 

KMNAM? 

KMFNNO 

- 

XQTTBL 

kmaeff 

m 

KMNAM5 

kmfnst 

m 

XQTTBL 

kmalfl 

m 

KMNAMl 

KMFORM 

• 

KMNAMl 

kmalog 

m 

KMNAM2 

KMFQFL 

• 

KMNAM* 

kmalph 

m 

KMNAN5 

KMFQMN 

• 

KMNAM* 

KMAN6L 

KMNAMS 

KMFQMX 

m 

KMNAM* 

KMARGS 

• 

ARGTBL 

KMFT 

- 

KMNAM2 

KMAS19 

• 

KMNAMS 

KMFUN 

- 

KMNAMl 

kmatan 

• 

KMNAM? 

KMFl 

m 

KMNAMS 

KM A TN2 

- 

KMNAM? 

kmgetr 

- 

KMNAMl 

KMAVBA 

- 

KMNAMS 

KMHEIG 

m 

KMNAMS 

kmavgs 

- 

KMNAM3 

KMHFAN 

m 

KMNAMS 

KMAl 

• 

KMNAMS 

KMINDC 

- 

KMNAMS 

kma2 

- 

KM VANS 

KM  I NOP 

- 

KMNAM* 

KMB 

- 

KMNAMS 

kmintp 

aa 

KMNAM2 

KMC 

m 

KMNAMS 

kminvt 

- 

KMNAM? 

KMCALL 

m 

KMNAMl 

kmlbel 

m 

KMNAMl 

KWCMPX 

- 

KMNAM? 

kmleng 

m 

KMNAMS 

kmcnvt 

- 

KMNAM2 

kmlglg 

• 

KMNAM* 

KMCOAX 

m 

KMNAM3 

KmLGLN 

• 

KMNAM* 

KMCOCK 

- 

KNNAM3 

kmlin 

• 

KMNAM* 

KMCONO 

- 

KMNAMS 

kmlist 

- 

KMNAMl 

KMCONJ 

- 

KMNAM2 

kmlmt 

• 

PARTBL 

KMCOS 

m 

KMMAM2 

kmlnlg 

- 

KMNAM* 

KMCOUP 

m 

KMNAM3 

kmlnln 

«• 

KMNAM* 

KMCURF 

- 

KMNAM* 

KMLOG 

• 

KMNAM* 

KMCO 

m 

KMNAM5 

KMLOOP 

m 

KMNAMl 

KMC  1 

- 

KMNAMS 

KML1 

- 

KMNAMS 

KmC2 

• 

KMNAM5 

KML2 

• 

KMNAMS 

KMC3 

• 

KMNAM5 

KML3 

- 

KMNAMS 

KMOB 

- 

KMNAM* 

KML* 

- 

KMNAMS 

KMDBCB 

m 

KMNAMS 

kmmarb 

- 

KMNAM3 

KMDBC1 

m 

KMNAMS 

KMMAX 

- 

KMNAM? 

kmoblg 

m> 

KMNAM* 

KMMEGE 

- 

KMNAM? 

KMOBLN 

m 

KMNAM* 

KWMIN 

• 

KMNAM? 

KMOBUG 

- 

KMNAM 1 

KMMNVL 

- 

KMNAM* 

KaOCFL 

m 

KMNAM* 

KMMOD 

- 

KMNAM2 

kmoele 

• 

KMNAM1 

KMMOOE 

- 

KMNAMS 

k»delt 

m 

KMNAMS 

kmmp 

m 

KMNAM* 

KmOEPT 

m 

KM N AMS 

KMMXVL 

- 

KMNAM* 

KaDGRS 

• 

KMNAM* 

KMMl 

- 

KMNAM5 

KMOIV 

• 

KMNAMS 

KaNAME 

- 

keymrd 

KMOLFQ 

•» 

KMNAM* 

KMNOEX 

- 

KMNAM* 

KMOLTM 

m 

KMNAM* 

kmnpts 

• 

KMNAM* 

KMOM 

m 

PARTBL 

kmnxt 

m 

KMNAM* 

kwni 

KWN2 

KWOFF 

KWON 

KWPAGL 

kwpagw 

kwpart 

kwphi 

KWPITO 

kwplot 

KWPNLJ 

KWPOLr 

KWPRPT 

KWPTI 

KWPT2 

kwpuch 

KWPURG 

KWRAOS 

knrqal 

kwroar 

kwreac 

KWREAO 

kwreof 

KWREP 

KWREWO 

KWRI 

KWRJTE 

kwb.nam 


- • 


KWRUN 

• « 

KWRV8E 

KWRI 

KWRIO 

KWRli 

KWR12 

KWR13 

KWR 14 

KWR15 

KWR16 

KWRI  7 

KWR16 

KWR  1 9 

KWR2 

KWR20 

KWR3 

KwR4 

KWRS 

KWR6 

KWR7 

KWR8 

KWR9 

kwsafe 

kwsave 

kwsavr 

kwscan 

kwsflo 

kwsgle 

kwshft 

KWSHIE 

KWSIGM 

kwsign 

kwsin 

* KWNAMS 
KWNAMS 
KWNAM4 
KNNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM5 
KWNAM3 
KWNAMI 
KWNAM3 
KWNAM2 
KWNAMI 
KWNAM4 
K WNAM4 
KWNAMI 

kwnami 

KWN4M4 
KWNAM3 
KHMAH3 
KWNAMI 

kwnami 
kwnami 

KWNAM4 
KWNAMJ 
KWNAM4 
KWNAMI 
KWNAMI 

' kwnami 

» KWNAM3 
> KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWN4M4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAM4 
KWNAMI 

kwnami 

kwnami 

KWNAM3 

KWNAM4 

KWNAM2 

KWNAM3 

KWNAMS 

KWNAM2 

KWNAM2 


KWSKPB 
KWSKPF 
KWSNGL 
KaSPCM 
KwSQR  r 
KWSVFN 

kwtan 

kwtau 

KWTDEP 

KwTOSN 

kwthet 

KwTITE 

KWTL£* 

kwtlev 

KwTMFL 

KWlMMN 

kwtmmx 

KWTST8 

KWTYPE 

KWVPCM 

KWWEA8 

KWWE8A 

KWWEIQ 

KWWIOT 

KWWIRE 

KWWROO 

KWWWEL 

KWWWGN 

KWZERO 


KWZO 

KWZS 

KW2T 

• 

KWZO 

• 

LAB 

• 

LA8PAG 

m 

LABVRT 

m 

LABX 

m 

LABY 

m 

lcuthk 

m 

lhstrg 

m 

libexm 

m 

linlog 

m 

list 

m 

listdm 

m 

listre 

m 

litnum 

m 

lkwfuc 

m 

llast 

m 

llimkw 

• 

llin 

m 

LLOG 

m 

lndex 

m 

Lnk 

m 

locblk 

m 

LOCCOM 

• 

LOCO 

«• 

LOCOIV 

m 

LOCOOL 

m 

LOCECIU 

m 

LOCEXP 

m 

LOCHS 

m 

* * KWNAMI 

- • KWNAMI 

- * KWNAM3 

* • KWNAM4 

- * KWNAM2 

- * KWNAM4 

- • KWNAM2 

- • KWNAM5 

- * KWNAM2 
“ * KWNAM2 

- * KWNAM5 

* * KWNAMI 

- * KWNAM4 

- • KWNAM4 

- * KWNAM4 

- * KW.NAM4 
“ • KWNAM4 

- * KWTASK 

- • KWNAMI 

- * KWNAM4 

- • KWNAM3 

* * KWNAM3 

* * KWNAM5 
■ • KWNAMS 

* * KWNAMS 

* * KWNAM3 

* • KWNAM3 

* * KWNAM3 

* • KWNAM4 
' * KWNAM5 

• KWNAM5 

• KWNAM5 

* KWNAM5 

* PLTLAB 

* PLTLGV 

* PLTLGV 

• PLTLA8 

• PLTLAB 

• PLTLGV 

• holstr 

* fmtptr 

* SCNT9L 

* ANGDAT 

• OSKNAM 

# OSKNAM 

* PARTBL 

* PARTBL 

* SCNTBL 

• PARTBL 

# SCNTBL 

• SCNTBL 

• PARTBL 

• LOCDAT 
» CHARTR 

* CHARTR 
> LOCDAT 
1 CHARTR 

CHARTR 

CHARTR 

CHARTR 

HOLSTR 


LOClTP  - 
LOCMIN  - 
LOCHUL  - 
LOC PER  - 
LOCPLS  - 

locrtp  - 

LOGEBR  - 
LSQNUM  - 
LSTACK  - 
LSTARG  - 
lstart  - 
ltitle  - 

LUNMPF  - 

lunpif  - 

LUPRNT  - 
LUBE AO  - 
MAGRl  ' 
MATCH 
MAXALP  - 
MAXCHL  ' 
MAXCHR  ■ 
MAXCOL  * 
MAXFPT  • 
MAXHSL  • 
MAXINT 
MAXKM 
MAXLIB 
MAXNUM 
MAXOPR 

maxphR 

maxscn 

maxstk 

maxstr 

maxsym 

maxval 

MOECX 

MOECY 

MKMX 

MnSUBC 

MODE 

monopr 

mstndx 

mxargt 

MXFPCT 

MXHSTR 

mxi 

mxinct 

mxmat 

mxprct 

MXSUBC 

mxsym 

MXSYSC 
MY  I 

nargtb 

nargtp 

NBIAS 

NCARO 

NCOOAL 

NCOOE 

NCODFN 


CHARTR 

CHART  R 

CHARTR 

CHARTR 

CHARTR 

CHARTR 

PLTCM2 

Pi.TI.GV 

PARTBL 

XQTTBL 

SCNTBL 

HGL'tTR 

PLT( M2 

PUT l M2 

SCNTBL 

SCNTBL 

LOCOAT 

PART  BL 

CHARTR 

SCNTBL 

ERNOOE 

SYNTBL 

CHARTR 

HOLSTR 

CHARTR 

KCVVRO 

FMTPTR 

CHARTR 

CHARTR 

CHARTR 

SCNTBL 

ERNOOE 

ERNOOE 

CHARTR 

XQTTBL 

PLTCM1 

pltcmi 

partbl 

partbl 

ANGOAT 

CHARTR 

MSTRG 

PARTBL 

ERNOOE 

MOtSTR 

pltcmi 

ERNOOE 
PARTBL 
ERNOOE 
PARTBL 
SYNTBL 
PARTBL 
PLTCMI 
PARTBL 
PARTBL 

partbl 

SCNTBL 
SCNTBL 
SCNTBL 
SCNTBL 


NCOOEP  - 
NCODHS  • 
NCOOIN  • 
NCOOKN  * 
NCOOOP  > 
NCODPE  • 
NCODSE 
NCOOSM 
NE 

NENDFG 

NEQUAL 

NFIELO 

NFTNLB 

NFUCHO 

NfONFG 

NFVBUF 

NKEYMO 

NLOOPS 

NOGOFG 

NOMTCH 

NOPCOO 

NOZL 

NPARGL 

NPOATA 

NPFLIB 

nplitn 

NPLOOP 

nprcnt 

nprstk 

NRUNFG 

NSCOL 

NTA8 

NTABSV 

NUMARG 

NUMBCM 

NUMCHR 

NUMD 

NUMOEC 

NOMOPS 

NOND 

NUPBKW 

NUPKWF 

NVAL 

NVALMX 

NXFMT 

NX  1 OPR 

NYFMT 

PAGEX 

PAGEY 

PAGLEN 

PAGNIO 

POAT 

PHI 

PIO 

PLTCLO 

pltehr 

plting 

pltlbl 

pltopn 

PNV 


SCNTBL 

SCNTBL 

SCNTBL 

SCNTBL 

SCNTBL 

SCNTBL 

SCNTBL 

SCNTBL 

ERR 

PARTBL 

XQTTBL 

ERNOOE 

FMTPTR 

PARTBL 

partbl 

FITS 

PARTBL 

PARTBL 

XQTTBL 

PARTBL 

PARTBL 

PLTLGV 

PARTBL 

PARTBL 

FMTPTR 

PARTBL 

partbl 

PARTBL 

PARTBL 

PARTBL 

SCNTBL 

SCNTBL 

SCNTBL 

XQTTBL 

OEFLST 

HOLSTR 

LOCOAT 

CHARTR 

LOCOAT 

MSTRG 

PARTBL 

PARTBL 

SCNTBL 

PARTBL 

pltlab 

PLTLGV 

PLTLAB 

pltfmt 

pltfmt 

OEFLST 

OEFLST 

PLTCMI 

ANGOAT 

pltcmi 

PLTLGV 

PLTLAB 

PLTLGV 

PLTLGV 

PLTLGV 

ANGOAT 
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PRINT 

«* 

• 

OSKNAM 

PTJM 

• 

• 

PLTCMI 

ROERR 

- 

• 

ERR 

SFNX 

- 

• 

pltcm* 

SHAD 

- 

• 

ANGOAT 

SINA 

m 

# 

PLTCM3 

SPCM 

«■ 

# 

deflst 

SPX 

m 

• 

PLTFMT 

spy 

m 

« 

pltfmt 

STPFLG 

m 

• 

pltlgv 

SV 

« 

ANGOAT 

symdat 

• 

SYMTBL 

symstr 

m 

• 

SYMTBL 

tau 

«• 

# 

ANGOAT 

THETA 

• 

# 

ANGOAT 

timfil 

« 

DEFLST 

timmax 

• 

DEFLST 

timmin 

- 

« 

DEFLST 

TML 

■» 

• 

PLTCMI 

USRCOM 

«• 

« 

SCNTBL 

VAL 

• 

SCNTBL 

VPCM 

«p 

• 

DEFLST 

WIRE 

• 

ANGOAT 

XMAX 

• 

pltcma 

XMIN 

• 

pltcma 

XP 

« 

PL  I CM3 

XPSF 

» 

PLTCM2 

XS 

•A 

• 

PLTCMA 

YMAX 

• 

• 

pltcma 

YMIN 

«P 

« 

pltcma 

YP 

a* 

• 

PL  TCM3 

YPSF 

- 

« 

PLTCM2 

YS 

- 

• 

pltcma 

ZDEBUG 

« 

xuttbl 

ZERO 

- 

• 

deflst 

ZRANO 

m 

• 

xqttbl 

2.  MAJOR  DATA  STRUCTURES 

The  LIP  requires  the  use  of  three  tables  for  generating  the  object  code 
for  the  CLP.  They  are  the  symbol  table,  the  literal  table,  and  the  argument 
list  table.  The  LIP  loads  the  argument  list  table  with  the  following  infor- 
mation: codes  for  operators  or  keywords,  pointers  to  the  symbol  table,  and 
pointers  to  the  literal  table.  The  symbol  and  literal  tables  contain  pointers 
to  other  tables  as  well  as  information  pertinent  to  the  execution  of  the 
object  code.  Figure  10  illustrates  the  table  linkage. 

Different  ranges  of  numeric  values  have  special  meaning  when  in  the 
argument  list.  They  are: 


Value 

Meaning 

0 

None 

1-1000 

Pointer  to  the  symbol  table 

1001 

Code  for  the 

operator  = 

1002 

Code  for  the 

operator  + 

1003 

Code  for  the 

operator  - 

1004 

Code  for  the 

operator  * 

1005 

Code  for  the 

operator  / 

1006 

Code  for  the 

operator  ** 

1007 

Code  meaning 

an  end  of  statement 

>1007 

Code  for  a command  declaration 

-999999 

Code  meaning 

a null  operation 

-1  to  -100 

Pointer  to  the  literal  table 

The  symbol  table  is  one  of  the  central  data  structures.  During  the  LIP, 
all  symbols  are  placed  in  the  symbol  table  in  right- justified,  zero-filled 
BCD.  No  other  entries  are  made  to  the  symbol  table  in  the  LIP.  The  CLP 
enters  all  other  information  into  the  symbol  table  as  it  processes  the  logical, 
SLAM,  and  arithmetic  operations. 

The  literal  table's  primary  purpose  is  to  contain  the  constants  (real, 
integer,  or  alphanumeric)  referenced  throughout  the  user's  input.  Other 
secondary  information  is  also  contained  within  the  literal  table.  These  are 
the  pointers  to  the  Hollerith  string  table,  the  keyword  table,  and  the  symbol 
table.  The  information  contained  in  the  literal  table  completes  the  linkage 
of  the  required  data  structures. 

The  three  tables  illustrated  in  Figure  10  are  contained  in  the  named 
common  blocks  /PARTBL/,  /SCNTBL/,  and  /SYMDAT/.  These  common  blocks  are 
discussed  in  the  following  subsections  and  include  a functional  definition 
for  each  variable  contained  in  the  common  blocks. 

a.  Common  /SYMDAT/ 

LEVEL  ?»S*MTBLt'«XSYM.MAXCOL.KOLNAM,KOlLDC.KOLEAM,KOLTYP,KDL.NPr, 

» KDLATT^SYMSTR* ISTOW 

COMMON/SYMQaT/  SYMTBL  <1 00  »6 ) t MXS YM  » MAXC0L«  KOLNAM  » KOLL0C* 

• <0LFAM»  XOlTYP,  KOLNPT  * XOLATTt  SYMSTRQOOW 

♦ ISTOR 
DIMENSION  ISYMST(IOO) 

EQUIVALENCE (SYMSTR { 1 ) t isymst ( 1 ) ) 

INTEGEw  SYMTBL 
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1001-1007 


> 1007 


-999999 


-1  TO  -100 


ARGUMENT  LIST 


(ARITHMETIC  OPERATOR 

CODES)  — - 

(COMMAND  DECLARATION) 

(NULL  OPERATION  - NOPCOD)  SYMBOL  TABLE 

LITERAL  TABLE 

VALUE  CODE 


LITERAL  TABLE 


Figure  10.  Major  Data  Structure  Linkage 


EXEMPT  maintains  a symbol  table  which  contains  the  name  and  attri- 
butes of  all  symbols  referenced  in  the  user's  ECL.  The  symbol  table  is  the 
array  SYMBTL  which  is  stored  in  the  named  common  /SYMDAT/ . The  current 
attributes,  their  columns,  and  the  attribute  meanings  for  data  sets  containing 
more  than  one  element  are  presented  in  Table  5. 

For  those  symbols  which  are  single  element  data  sets,  the  named 
common  /SYMDAT/  has  the  following  meaning: 

KOLLOC  - The  storage  indicator  will  be  negative  when  KOLNPT 
is  set  to  1.  The  absolute  value  of  KOLLOC  is  the 
index  of  the  symbol's  value  in  SYMSTR. 

KOLTYP  - Will  be  set  to  zero  (0). 

KOLNPT  - Will  be  set  to  one  (1). 


sets: 


The  attribute  word  KOLATT  has  the  following  meaning  for  all  data 


Bits  0-1 


Bits  2-3 


Bits  4 


- Format  type 

00  - not  set 

01  - real  data  set 

10  - integer  data  set 

11  - complex  data  set 

- Complex  type 

00  - should  be  real  data  set 

01  - real- imaginary 

10  - magnitude-phase 

11  - decibel-phase 

- Phase  type 

0 - radians 

1 - degrees 


Bits  5-59  - Unused 
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Table  5 


SYMDAT  ENTRIES 


VALUE 

SYMBOL 

FUNCTION 

1 

KOLNAM 

Data  set  name,  right- justified  BCD 

2 

KOLLOC 

Storage  indicator,  file,  and  record 
(Bits  0-29  and  30-59,  respectively) 

3 

KOLFAM 

Family  attribute  (unused) 

4 

KOLTYP 

Type  of  data,  positive  for  frequency 
data,  negative  for  time  data.  Absolute 
value  of  KOLTYP  points  to  associated 
independent  data  set  entry  in  SYMTBL. 

5 

KOLNPT 

Number  of  points  in  the  data  set 

6 

KOLATT 

Attribute  word,  described  below 

100 

MXSYM 

Row  dimension  of  SYMTBL.  Maximum 
number  of  SYMTBL  entries  is  expandable 
to  1000 

6 

MAXCOL 

Column  dimension  of  SYMTBL 

N/A 

SYMTBL 

Two-dimensional  array  containing 
symbol  names  and  attributes 

N/A 

SYMSTR 

One-dimensional  array  containing  a 
value  for  a one-dimensional  data  set 

N/A 

ISTOR 

Current  pointer-index  to  SYMSTR 

b.  Common  /PARTBL/ 


T/  A 


COMMON/ PARTBL/  L I TNUM < 1 00 ♦ 2 ) ♦ NLOOPS ( 1 00 * * ) . KOLCOO* 

NARGTB (1000) » NPRSTK(IOO)  « KMDM<7>*  NARGTP<4>, 
KOLVAL*  KOLLBL*  KOLTIM*  KOLTSK*  NPRCNT,  MXSYSC* 
MKMX*  KMLMTt  NV ALMX  * NUPKMF*  LKWFUC*  NUPBKm* 

LL IMKk  « NPARGL,  NPLITNt  NPDAT  A*  NPLOOPt  N3I AS* 
KOLCNT*  MXARGT*  MXMAT*  KTEMOT.  MATCH*  NOMTCH* 
NKETWO*  NOPCOO.  NFUNFG*  NRUNFG*  NENOFG*  NFUCHD* 
KPRNCT * LSTACK(IO)*  LNOEX*  MNSUBC*  MXSUSC 
DIMENSION  FLTLI T ( 100*2) 

EQUIVALENCE  (Li TNUM (1,1) • Fl TL I T ( 1 * 1 ) ) 

Common  block  PARTBL  contains  the  literal  table,  argument  list 
table,  and  loop  table.  Table  6 contains  the  current  attributes  and  their 
columns  as  it  pertains  to  the  literal  table.  Likewise,  Table  7 pertains  to 
the  argument  list  table  and  Table  8 pertains  to  the  loop  table.  Table  9 
contains  those  entries  used  when  parsing  a statement. 
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Table  6 

PARTBL  ENTRIES 

PERTAINING  TO  THE  LITERAL  TABLE 

VALUE 

SYMBOL 

FUNCTION 

1 

KOLCOD 

Column  in  literal  table  for  the  literal 
type 

2 

KOLVAL 

Column  in  literal  table  for  the  literal 
value 

N/A 

NPLITN 

Current  index  of  the  literal  table 

N/A 

FLTLIT 

Literal  table  of  floating  point  values 

N/A 

LITNUM 

Literal  table 

Table  7 


PARTBL  ENTRIES  PERTAINING  TO  THE  ARGUMENT  LIST  TABLE 


VALUE 

SYMBOL 

FUNCTION 

7 

MKMX 

Maximum  number  of  operators 
including  an  end  of  statement 

N/A 

NARGTB 

Argument  list  table 

1000 

NBIAS 

Biased  value  that  is  added  to  tbe 
value  of  an  operator 

N/A 

NFUCHD 

Contains  the  current  biased  value 
of  an  EXEMPT  library  function 

-999999 

NOPCOD 

Code  for  a null  or  empty  field 

1000 

NPARGL 

Dimension  of  NARGTB 

Table  8 

PARTBL  ENTRIES 

PERTAINING  TO  THE  LOOP  TABLE 

VALUE 

SYMBOL 

FUNCTION 

1 

K0LLBL 

Loop  label  in  right-justified  BCD 

2 

KOLTIM 

Number  of  times  a loop  is  to  be 
executed 

3 

KOLTSK 

The  index  in  the  argument  list  table 
where  the  loop  begins 

4 

KOLCNT 

Number  of  times  loop  has  been  executed 

N/A 

NLOOPS 

Loop  table 

N/A 

NPLOOP 

Current  index  of  the  loop  table 

\ 

. 

rf 

J 


I 

1 


SYMBOL 

KRPRNCT 

KTEMDT 

KWDM 

KWLMT 

LKWFUC 

LLIMKW 

LNDEX 

LSTACK 

MATCH 

MNSUBC 

MXARGT 

MXMAT 

MXSUBC 

MXSYSC 

NARGTP 

NENDFG 

NFUNFG 

NKEYWD 

NOMTCH 

NPDATA 


Table  9 

PARTBL  ENTRIES 

FUNCTION 

Counter  for  the  number  of  right  parentheses  in  a 
statement 

Contains  the  name  of  a temporary  data  set 
Not  used 

Maximum  number  of  keywords 

Maximum  number  of  arithmetic  function  keywords 
Number  of  keywords  with  a task  in  the  task  table 
Current  index  of  the  task  table 
Not  used 

Flag  that  when  set  indicates  a symbol  has  been 
matched  on  the  symbol  table 

Index  to  first  SLAM  function  in  the  keyword  table 
Maximum  number  of  logical  command  functions 
Number  of  entries  in  NARGTP 

Index  to  last  SLAM  function  in  the  keyword  table 

Index  to  last  logical  command  function  in  keyword 
table 

Argument  table  pointer,  points  to  symbol,  literal, 
keyword,  and  operator  tables 

Flag  that  when  set  means  an  END  declaration 

Flag  that  when  set  means  an  arithmetic  function 

Contains  current  index  to  keyword  table 

Flag  that  when  set  means  a symbol  match  was  not 
made  in  the  symbol  table 

Current  index  to  the  symbol  table 
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Table  9 

PARTBL  ENTRIES  (Concluded) 

SYMBOL  FUNCTION 

NPRCNT  Current  index  to  the  operator  stack 

NPRSTK  Operator  stack 

NRUNFG  Flag  that  when  set  means  a RUN  declaration  found 

NUPBKW  Upper  bound  of  keywords  in  the  keyword  table 

NUPKWF  Upper  bound  of  keywords  with  an  associated  task 

NVALMX  Maximum  number  of  fields  that  can  be  parsed 


c.  Common  /SCNTBL/ 


COMMON/SCNTBL/NCODE (256) * NVAL (256) »NCOD<W*NCODOP*NCODIN*NCODFN« 
NC0DFP.NC0DAL*NC00SM*NC0D5E»NC0DHS.NC0DPE»NCARD<bl ) * 
IBYTSZ*LSTART*LLAST*MAXCHL» I ALPHA* I ZERO* I PLUS* IP AREN. 
I EQUAL » I BLANK  »IPER0D*IS0N*ISQFF*FIR5T»NTaBSV*NSC0L* 
NTAB*MAXSCN*LUPRNT*LUREA0*LINL0G*LLIN»LL0G. IBL<CD* 
IGNORE«ERRSCN.USRCOM,DBGPRT*SCnOBG*SCNLIP»ISTMT 
LOGICAL  D0GPRT. SCN08G* SCNLIP 
LOGICAL  ERRSCN.USRCOM 
LOGICAL  IGNORE 
LOGICAL  FIRST 
DIMENSION  VAL ( 256 ) 

EQUIVALENCE  (NVAL(l) *VAL(1) ) 


Although  common  block  SCNTBL  does  not  contain  any  of  the  tables 
mentioned  in  the  previous  section,  it  does  contain  the  intermediate  tables, 

NCODE  and  NVAL,  and  the  codes  that  have  parsing  and  executing  mnemonics. 

Table  10  is  the  table  of  mnemonics  and  their  values  for  this  common  block. 

When  scanning  input  data,  two  tables  (NCODE  and  NVAL)  are  built. 

The  NCODE  table  contains  the  code  for  the  type  of  field  (i.e.,  operator, 
numeric,  etc.)  and  the  NVAL  table  contains  the  field  (reference  table  4) 
associated  with  the  code.  After  an  entire  statement  has  been  placed  in  the 
above  tables  by  fields,  the  statement  is  ready  to  be  parsed. 

3.  SUPPORT  DATA  STRUCTURES 

Support  data  structures  include  those  that  maintain  the  tables  for  the 
random  and  sequential  files,  Hollerith  strings,  default  values,  and  error 
diagnostics  to  name  a few.  These  structures  and  tables  keep  track  of  the 
data  flow  between  modules  and  the  correctness  of  the  user's  code.  The  following 
subsections  contain  a brief  description  of  each  common  block  containing  the 
data  structures. 
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Table  10 

SCNTBL  ENTRIES 

VALUE 

SYMBOL 

FUNCTION 

.FALSE. 

DBGPRT 

Printer  debugging  test  from  the  LIP 
and  CLP  when  set  .TRUE. 

.FALSE. 

ERRSCN 

When  set  .TRUE,  then  an  LIP  error  has 
occurred  while  scanning 

.TRUE. 

FIRST 

First  card  of  a run  stream 

IRA 

I ALPHA 

First  legal  character  in  display  code 

IRK 

IBLANK 

A blank  in  display  code 

N/A 

IBLAKCD 

Not  used 

6 

IBYTS2 

Number  of  bits  a character  uses  in 
one  word 

IR= 

I EQUAL 

An  equal  sign  in  display  code 

.FALSE. 

IGNORE 

When  set  .TRUE,  then  READC  has  called 
SCAN  for  coded  read 

IR( 

IPAREN 

Left  parenthesis  in  display  code 

IR. 

IPEROD 

Period  in  display  code.  Also,  last 
allowed  display  code  character 

IR+ 

I PLUS 

Plus  sign  in  display  code 

0 

ISOFF 

Used  as  a test  for  zero 

1 

ISON 

Used  as  a test  for  one 

N/A 

I STMT 

Number  of  statements  that  have  gone 
through  the  LIP  in  a run  stream 

1R0 

I ZERO 

A zero  in  display  code 

0 

LINLOG 

When  set  to  1 indicates  a LIN,  LOG, 
NXT,  or  REP  keyword  in  point  field 

3RLIN 

LLIN 

Keyword  LIN  in  display  code 

3RLOG 

LLOG 

Keyword  LOG  in  display  code 
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Table  10 

SCNTBL  ENTRIES  (Continued) 
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VALUE 

SYMBOL 

FUNCTION 

1 

LSTART 

First  column  of  card  image  to  be 
scanned 

6 

LUPRNT 

Output  buffer 

3 

LURE AD 

Unit  that  contains  card  image 

10 

MAXCHL 

Maximum  number  of  characters  in  a user 
defined  name 

256 

MAXSCN 

Maximum  number  of  fields  to  be  scanned 

N/A 

NCARD 

Array  containing  the  card  image 

5 

NCODAL 

Indicates  field  is  an  alpha 

N/A 

NCODE 

Coded  field  table 

N/A 

NCODFN 

Not  used 

4 

NCODFP 

Indicates  field  is  a real  number 
in  the  NVAL  table 

8 

NCODHS 

Indicates  field  is  a Hollerith  string 
in  the  NVAL  table 

3 

NCODIN 

Indicates  field  is  an  integer  number 
in  the  NVAL  table 

1 

NCODKW 

Indicates  field  is  a keyword  in  the 

NVAL  table 

2 

NCODOP 

Indicates  field  is  an  operator  in  the 
NVAL  table 

N/A 

NCODPE 

Not  used 

7 

NCODSE 

Indicates  end  of  statement  in  the  NVAL 
table 

6 

NCODSM 

Indicates  field  is  a symbol  in  the  NVAL 
table 

N/A 

NSCOL 

Current  card  image  column  being  scanned 

N/A 

NTAB 

Current  field  in  field  tables 
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Table  10 

SCNTBL  ENTRIES  (Concluded) 


VALUE 

SYMBOL 

FUNCTION 

N/A 

NTABSV 

Numbers  of  fields  scanned  in  last 
statement 

N/A 

NVAL 

Field  table 

.FALSE. 

SCNDBG 

When  set  .TRUE,  causes  debugging  text 
to  be  batched  to  output 

.FALSE. 

SCNLIP 

When  set  .TRUE,  causes  debugging  text 
to  be  batched  to  output 

.FALSE. 

USRCOM 

When  .TRUE,  a MYCOM  declaration  is 
being  used 

N/A 

VAL 

Contains  floating  point  fields  of  the 
field  table 

a.  Common  /ANGDAT/ 


COMMON/ANSDAT/ThETA. PHI. TAU.HSURF(3>.EN0«M<3>. MODE. WIRE<5>.FACTH, 

, FACTE.SHAD.FMAX.FMIM.tIST 

DIMENSION  ISE5MT (5) »SV ( 3) .PNV ( 3) 

EQUIVALENCE^WIREU)  .ISESMT(l)  > . (HSURF  ( 1)  ♦ SV  ( 1 > > . ( ENORM  ( 1)  . PNV  U ) > 
LOGICAL  LIST 


Common  block  ANGDAT  contains  information  necessary  for  the  execu- 
tion of  the  routine  SFIELD.  For  a complete  description  of  each  variable, 
reference  the  SLAM  User's  Manual, 
b . Common  /ARGTBL/ 


COMMON/ ARGTBL/KWARGS ( 256 ) 


The  main  function  of  common  block  ARGTBL  is  to  provide  the  infor- 
mation needed  for  determining  the  type  of  argument(s)  that  are  associated 
with  each  command.  The  types  of  argumens  may  be  symbols,  defined  symbols, 
numbers,  etc.,  as  defined  in  the  keyword  task  table  (KWTSTB) . Table  11  is  a 
list  of  the  types  of  arguments  defined. 


Table  11 

TYPES  OF  ARGUMENTS 


Value 

Argument  Type 

-1 

Symbol 

-2 

Defined  Symbol 

-3 

Symbol  or  Defined  Symbol 

-4 

Literal 

-5 

Symbol  or  Literal 

-6 

Defined  Symbol  or  Literal 

-7 

Integer  Number 

-8 

Symbol,  Defined  Symbol,  or  Integer 

Number 

-9 

Any  Keyword 

-10 

Symbol  or  Keyword 

-11 

List  of  Symbols 

-12 

List  of  Symbols,  Defined  Symbols, 

or  Literals 

-15 

Hollerith  String 

c.  Blank  Common  /BLNKCM/ 

LEVEL  PtBt-NKCM 
COMMON  BLNKCM (3000) 

DIMENSION  IBLKCM ( 3000 ) 

EQUIVALENCE  < BLNKCM l 1 > ♦ 18LKCMUJ  ) 

The  purpose  of  common  block  BLNKCM  is  to  store  data  for  manipu- 
lation within  EXEMPT.  The  size  of  blank  common  is  dynamically  adjusted  as 
required  to  accommodate  the  data. 

d.  Common  /CHAR/ 


COMMON/CHAN/ UL*M (26) *1013(10) .ISYM (6) •NONOPRt*) .MAXALP.MAXNUM, 

* M AXS YM t MAX OPR  »LOCPLStLOCMIN » L0CMUL  * LOCO I V»L0CEQU» 

t LOCEXP* MAX INT » NUMDEC»MAXFPT ♦ MAXPvR t lOCDOL « LOCLTP * 

♦ locptp*loccom»locper.locblk 


Common  block  CHAR  contains  all  of  the  legal  characters  within 

EXEMPT. 


Table  12 


/CHAR/ 


Name 

IALPH 

IDIG 

ISYM 

LOCBLK 

LOCCOM 

LOCDIV 

LOCDOL 

LOCEQU 

LOCEXP 

LOCLTP 

LOCMIN 

LOCMUL 

LOCPER 

LOCPLS 

LOCRTP 


Function 

Contains  all  the  alphabetic  characters 
A - Z 

Contains  all  the  numeric  characters 
1-9 

Contains  all  the  symbols,  $,  (,  ), 

, , . , and  blank 

Contains  the  location  of  the  blank  in 
ISYM 


Contains  the  location  of  the  comma  in 
ISYM 

Contains  the  location  of  the  division 
sign  in  MONOPR 

Contains  the  location  of  the  dollar  sign 
in  ISYM 

Contains  the  location  of  the  equal  sign 
in  MONOPR 

Contains  the  location  of  the  exponential 
sign  in  MONOPR 

Contains  the  location  of  the  left  paren- 
thesis in  ISYM 

Contains  the  location  of  the  minus  sign 
in  MONOPR 

Contains  the  location  of  the  multiply 
sign  in  MONPR 

Contains  the  location  of  the  period 
or  decimal  in  ISYM 

Contains  the  location  of  the  plus  sign 
in  MONOPR 

Contains  the  location  of  the  right 
parenthesis  in  ISYM 
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Name 

MAXALP 

MAXFPT 

MAXINT 

MAXNUM 

MAXOPR 

MAXPWR 

MAXSYM 

MONOPR 

NUMDEC 
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Table  12 

/CHAR/  (Concluded) 


Function 

Contains  the  maximum  number  of  alpha- 
betic characters 

Contains  the  maximum  number  of  floating 
point  digits 

Contains  the  maximum  number  of  integer 
digits 

Contains  the  maximum  number  of  digits 
in  the  table  IDIG 

Contains  the  maximum  number  of  operators 
in  the  table  MONOPR 

Contains  the  maximum  number  of  digits 
allowed  after  the  E in  E format 

Contains  the  maximum  number  of  symbols 
contained  in  the  table  ISYM 

This  is  the  table  that  contains  all  of 
the  allowable  operators  within  EXEMPT 
(+,  *,  1,  =,  **) 

This  contains  the  maximum  number  of 
digits  allowed  after  the  decimal  point 


e.  Common  /DEFLST/ 

COHHON/OCFLST/FRQFIL*FftQMAX»FRQHIN.GHEALKEO) tNUM0CM.PAGLEN»PAGWl 0» 
, spch,timfil»timmax.timmin.vpcm.Z£«o 

INTEGER  FPQFIL.TlMFlL*PAflLEN«PAG¥ID 


Common  block  DEFLST  contains  all  default  valued  keywords  with  their 
initial  values.  These  keywords  may  have  their  values  changed  during  execu- 
tion and  may  be  used  as  operands  in  arithmetic  statements. 
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Table  13 


/DEFLST/ 


Name 

FRQFIL 

FRQMAX 

FRQMIN 

GREAL 

NUMBCM 

PAGLEN 

PAGWID 

SPCM 

TIMFIL 

TIMMAX 

TIMMIN 

VPCM 

ZERO 


Function 


Contains  the  sequential  file  that  has 
been  designated  to  contain  frequency 
only  data 

Contains  the  maximum  frequency  value 

Contains  the  minimum  frequency  value 

The  global  real  array 

Contains  the  number  of  blank  common 
locations  available 

Contains  the  length  of  the  page  to 
be  printed  on 

Contains  the  width  of  the  page  to  be 
printed  on 

Not  used 

Contains  the  sequential  file  that  was 
designated  to  contain  time  only  data 

Contains  the  maximum  time  value 

Contains  the  minimum  time  value 

Not  used 

Used  for  closeness  testing  for  inde- 
pendent values  - value  is  defaulted 
to  l.E-10 
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f.  Common  /DSKNAM/ 


COMMON  /DSKNAM/  IFLNOUt  IBtKNM  (20  > • IFlLl  0'<2715)  » IDD  <5)  »L  ISTOMt 

. print. listre 

LOGICAL  LlSTDM, lISTRE. PRINT 


Common  block  DKSNAM  contains  all  information  necessary  in  commu- 
nicating with  the  random  access  system. 


Table  14 
/DSKNAM/ 


IBLKNM 


IFILID 


IFLNOW 


LISTDM 


LISTRE 


PRINT 


Function 

Contains  all  of  the  file  names  within 
the  random  access  system 

Contains  the  current  index  to  the  current 
file  being  used 

Contains  the  directory  of  the  current 
file  on  the  random  access  system  in  use 

Contains  the  current  file  in  use 

Not  used 

Not  used 

Not  used 


g.  Common  /ERMODE/ 


COMMON/ERMODE/ICOND* IERROR. IWARN* IDANGRt IERCOD.MAXSTK. IDECER» 
MAXSTR,MAXCHR.MXINCT*MXFPCT»NfIELO* ILLCHR»MXPRCTt 
KMERR 


Common  block  ERMODE  contains  all  of  the  error  codes  detected  in  the 
subroutine  SCAN  of  the  LIP. 
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Table  15 


/ERMODE/ 


Name 

ICOND 

IDANGR 

IDECER 

IERCOD 

IERROR 


Function 

Contains  the  condition  of  the  type 
of  error 

Is  a code  for  ICOND  indicating  the 
scanning  tables  have  overflowed 

Indicates  that  a decimal  was  illegally 
used 

Contains  the  type  of  error  that  occurred 
Indicates  an  error  mode  for  ICOND 


ILLCHR 


Indicates  that  an  illegal  character 
was  used 


I WARN 


Indicates  a warning  message  is  to  be 
issued  and  the  condition  for  ICOND 


KWERR 


Indicates  that  a keyword  error  has  occurred 


MAXCHR 

MAXSTK 

MAXSTR 

MXFPCT 

MXINCT 

MXPRCT 

NFIELD 


Indicates  that  the  maximum  number  of 
characters  for  a symbol  has  been  exceeded 

Indicates  that  the  maximum  stack  length 
has  been  exceeded  for  the  scan  tables 

Indicates  that  the  maximum  Hollerith 
string  length  has  been  exceeded 

Indicates  that  the  maximum  floating 
point  length  has  been  exceeded 

Indicates  that  the  maximum  integer 
length  has  been  exceeded 

Indicates  that  the  power  of  the  floating 
point  is  too  large 

Not  used 
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c.  Common  /ERR/ 

COMMON  /ERR/  ROERR.NEt IOUMP» IOPLT 
LOGICAL  ROERR 

Common  block  ERR  indicates  that  an  error  has  occurred  on  a random 
access  file. 


Table  16 
/ERR/ 


Name  Function 

IDPLT  Not  used 

IDUMP  Indicates  the  number  of  words  to  be  dumped 

around  the  word,  a fatal  error  that  occurred 
within  EXEMPT 

NE  Not  used 

RDERR  Indicates  that  a read  error  will  occur  if 

the  user  attempts  to  read  a random  access 
file  that  has  not  yet  been  opened 


i.  Common  /FITS/ 

COMMON/Firs/  NFWOBUFtNFWBJF. IF  I TWO ( 20 ) »IFITX<5> 

Common  block  FITS  is  used  to  indicate  the  current  sequential  files  being 
used.  There  are  20  possible  sequential  files  that  may  be  user  designated. 

Ten  will  have  buffers,  and  ten  will  be  without  buffers. 
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IFITW  Not  used 


IFTWO  Contains  all  of  the  sequential  files 

that  have  been  user  designated 

NFWBUF  Contains  the  number  of  files  on  the 

program  card  with  buffers  of  the  form 
BTBUFX 

NFWOBUF  Contains  the  number  of  files  on  the 

program  card  that  do  not  contain  buffers 
of  the  form  BTIOXX 

j . Common  /HOLSTR/ 

COMMON/HOLS TR/L  HSTPG(25»12) .MXMSTR, MAXHSL ♦ NUMCHR , LOCHS . L T I TLE 

Common  block  HOLSTR  is  the  storage  area  for  the  Hollerith  string. 
The  argument  list  table  will  contain  a pointer  for  a Hollerith  string  to  the 
array  LHSTRG . 
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iable 18 
/HOLSTR/ 


Name 

LHSTRG 

LOCHS 

LTITLE 

MAXHSL 

MXHSTR 

NUMCHR 


Function 

Contains  all  of  the  Hollerith  string 
or  titles  that  were  created  within  a 
run  stream 

Contains  the  next  available  location 
within  LHSTRG  for  a Hollerith  string 

This  is  the  flag  to  indicate  that  a 
Hollerith  string  is  being  created 

Contains  the  maximum  Hollerith  string 
length  of  120  characters 

Contains  the  maximum  number  of  Hollerith 
strings  within  a run  stream  — maximum 
number  is  25 

When  a Hollerith  string  is  being  scanned, 
this  contains  the  current  character  count 


k.  Common  /KEYWRD/ 

COMMON/KE  YWRO/KWNAME (256*2) »MAXKW 
CoBmon  block  KEYWRD  contains  all  the  keywords  with  EXEMPT. 


Table  19 

/KEYWRD/ 

Name 

Function 

KWNAME 

Is  the  array  that  contains  all 

keywords 

MAXKW 

Contains  the  maximum  number  of 
within  EXEMPT  (256) 

keywords 
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1.  Common  /KWNAM1/ 


COMMON/KWNAMl/KHALFl*  KWClPT.  KWCALL*  KWDROP*  KWEO F,  KWFIlE* 

KWFMPT,  KWGETR.  KWGDPT * KWLIST.  KWFORM*  KWPRPT*  KWPJCH* 
KWREAD*  KWREAC*  KWREWO*  KWRUN*  KWSAVE*  KWSCAN*  KWSKP0. 
KWSKPFt  KMS A VR * KWTITE*  KWRITE*  KWRNAW.  KWREDF * KWLOOP* 
KWLBEL*  KWCHGEt  KWEND*  KWPURG*  KwTYPE*  KWFUN*  KWD0UG 


Common  block  KWNAM1  contains  all  the  indices  to  the  system  commands 
within  EXEMPT. 


Table  20 
/KWNAM1/ 


Name 

KWALFL 

KWCALL 

KWCHGE 


Function 

Contains  the  index  to  the  system  command 
for  the  keyword  ALTFIL 

Contains  the  index  to  the  keyword  table 
for  the  system  command  CALL 

Not  used 


KWREAD 

KWREDF 


Contains  the  index  to  the  keyword 
table  for  the  system  command  READ 

Contains  the  index  to  the  keyword 
table  for  system  command  READF 


KWREWD 


Contains  the  index  to  the  keyword 
table  for  the  system  command  REWIND 


Table  20 


/KWNAM1/  (Concluded) 


Name 

Function 

KWRITE 

Contains  the  index  to  the  keyword 
table  for  the.  system  command  WRITE 

KWRNAM 

Contains  the  index  to  the  keyword 
table  for  the  system  command  RENAME 

KWRUN 

Contains  the  index  to  the  keyword 
table  for  the  system  command  RUN 

KWSAVE 

Contains  the  index  to  the  keyword 
table  for  the  system  command  SAVE 

KWSAVR 

Contains  the  index  to  the  keyword 
table  for  the  system  command  SAVRAN 

KWSCAN 

Not  used 

KWSKPB 

Contains  the  index  to  the  keyword 
table  for  the  system  command  SKIPB 

KWSKPF 

Contains  the  index  to  the  keyword 
table  for  the  system  command  SKIPF 

KWTITE 

Contains  the  index  to  the  keyword 
table  for  the  system  command  title 

KWTYPE 

Contains  the  index  to  the  keyword 
table  for  the  system  command  TYPE 

< ® U Q 


m.  Common  /KWNAM2/ 


C0HM0N/KV)NAH2/KMA3S*  KkATAN*  KiIATN2#  KWCLEN*  K*CONJ»  KWCNVTt 
KtriCOS  »KWEXP  *KWFT  *KKCHPX*KWlNrP tKKlNVT»KWALOGf 
KWHAX  ♦KWMEGEtKWMlN  «KWMOD  ♦KWEDIT»KWSHFT»KWSISN» 
KWSIN*  KrfSORT * KWTAN*  K M 9 • KWTDEP*  KWTOSNt 
KM0M9*  KWD10*  KMOU 


Common  block  KWNAM2  contains  the  indices  to  the  keyword  table  for 
a11  keywords  that  are  used  as  functions. 


Table  21 

/KWNAM2/ 

Name 

Function 

KWABS 

Contains  the  index  to  the  keyword 
table  for  the  function  ABS 

KWALOG 

Contains  the  index  to  the  keyword 
table  for  the  function  ALOG 

KWATAN 

Contains  the  index  to  the  keyword 
table  for  the  function  ATAN 

KWATN2 

Contains  the  index  to  the  keyword 
table  for  the  function  ATAN2 

KWCMPX 

Contains  the  index  to  the  keyword 
table  for  the  function  CMPLX 

KWCNVT 

Contains  the  index  to  the  keyword 
table  for  the  function  CONVRT 

KWCONJ 

Contains  the  index  to  the  keyword 
table  for  the  function  CONJG 

KWCOS 

Contains  the  index  to  the  keyword 
table  for  the  function  COS 

KWEDIT 

Contains  the  index  to  the  keyword 
table  for  the  function  EDIT 

KWEXP 

Contains  the  index  to  the  keyword 
table  for  the  function  EXP 

KWFT 

Contains  the  index  to  the  keyword 
table  for  the  function  FT 
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/KWNAM2/  (Continued) 


Name 

Function 

KWINTP 

Contains  the  index  to  the  keyword 
table  for  the  function  INTERP 

KWINVT 

Contains  the  index  to  the  keyword 
table  for  the  function  INVFT 

KWMAX 

Contains  the  index  to  the  keyword 
table  for  the  function  MAX 

KWMEGE 

Contains  the  index  to  the  keyword 
table  for  the  function  MERGE 

KWMIN 

Contains  the  index  to  the  keyword 
table  for  the  function  MIN 

KWMOD 

Contains  the  index  to  the  keyword 
table  for  the  function  MOD 

KWPOLY 

Contains  the  index  to  the  keyword 
table  for  the  function  WPOLY 

KWSHFT 

Contains  the  index  to  the  keyword 
table  for  the  function  SHIFT 

KWSIGN 

Contains  the  index  to  the  keyword 
table  for  the  function  SIGN 

KWSIN 

Contains  the  index  to  the  keyword 
table  for  the  function  SIN 

KWSQRT 

Contains  the  index  to  the  keyword 
table  for  the  function  SQRT 

KWTAN 

Contains  the  index  to  the  keyword 
table  for  the  function  TAN 

KWTDEP 

Contains  the  index  to  the  keyword 
table  for  the  function  TRDEXP 

KWTDSN 

Contains  the  index  to  the  keyword 
table  for  the  function  TRDSIN 
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n.  Common  /KWNAM3/ 


C0MM0N/KWNAM3/K* AV8A  tKWCOCK  »K*COND  * K WENS I *K WMF AM* KW I NDC ♦ K UMARB ♦ 
KWPITO»KWROAL»KWRDAH»KWRVBE»KWSHIE  * K Wk/E  A3  ♦ K W WEB  A » K WWROO  » 
KW«(WEL*KrfW«<GN»KWSNGL*K*AS19*KWC0AX.»K*SFL0*KWAVGS*KWC0UP» 

KWPNL J*KrfD3C3*KttDBCl 


Common  block  KWNAM3 

contains  the  indices  to 

the  keyword  table 

for  the  SLAM  keywords. 

Table  22 

/KWNAM3/ 

Name 

Function 

KWAS19 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  AS1918 

KWAVBA 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  AVBAY 

KWAVGS 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  AVGSKT 

KWCOAX 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  COAX 

KWCOCK 

Contains  the  index 
table  for  the  SLAM 

for  the  keyword 
function  COCKPT 

KWCOND 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  CONDUIT 

KWCOUP 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  COUPLER 

KWDBCB 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  DBCAB 

KWDBCI 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  DBCABI 

KWENG1 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  ENGINE 

KWHFAN 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  HFANT 
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Table  22 

/KWNAM3/  (Concluded) 


Name 

Function 

KWINDC 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  INDCOU 

KWMARB 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  MARBEA 

KWPITO 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  PITOT 

KWPNLJ 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  PNLJNT 

KWRDAL 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  RADALT 

KW8DAR 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  RADAR 

KWRVBE 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  RVBEA 

KWSFLD 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  SFIELD 

KWSHIE 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  SHIELD 

KWSNGL 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  SNGLIN 

KWWEAB 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  WEABAY 

KWWEBA 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  WEBAOP 

KWWROO 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  WROOT 

KWWWEL 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  WWELL 

KWWWGN 

Contains  the  index 
table  for  the  SLAM 

to  the  keyword 
function  WWGND 
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o.  Common  /KWNAM4 / 


COMMON/KWNAM4/KriDSLNtKWOBLGtK«INDPtKMOtiRS*i(NDCFLtKWCURFt 

A KHN0EX*KWL0G*KWLlNtKWLNLN»K«ILNL6*KMLGLN* 

0 KWL3LG*  KWMXVL * KWMNVL » KWNPTSt  KWMP * KWOFF*  KWONt 
KWPARTtKWPTl»K*PT2»K«<RADSfK«*RI»K*DB» 

KWSAFE t KMSVFN*  KWSGLE * KWTLEX.  KDTLEYf  KWREP*  KMNXTt 
KWOLFQ*  KWDLTM*  K*FQMX»  KBF3MNH  KWSPCM*  KWTMMX*  KW TMMNt 
KWVPCMt  KWZERO t KWFQFL » KWTMFUt 

KWR1*  KWR2 « KWR3t  KWR4»  KWR3*  KWH6t  KWR7.  KWR8t  KMR9« 
KWR10*  KWR11*  KWR12.  KWR13.  KWRlAt  KWR15*  KWR16.  KWR 1 7 » 

1 KWR 1 8 • KWR19,  KWR20t  KWPAGL.  KWPASW 

Common  block.  KWNAM4  contains  the  default  value  and  parameter  : 
keyword  indices  to  the  keyword  table. 


Table  23 
/KWNAM4/ 


Name 

Function 

KWCURF 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  CURFIL 

KWDB 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  DB 

KWDBLG 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  word  DBLOG 

KWDBLN 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  DBLIN 

KWDCFL 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  DOCFIL 

KWDGRS 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  DGREES 

KWDLFQ 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  DELFRQ 

KWDLTM 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  DELTIN 

KWFQFL 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  FRQFIL 

KWFQMN 

Contains  the  pointer  to  the  keyword 
table  for  the  keyowrd  FRQMIN 

KWFQMX 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  FRQMAX 
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Table  23 

/KWNAM4/  (Continued) 


Name 

Function 

KWINDP 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  INDPNT 

KWLBNM 

Not  Used 

KWLGLG 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  LOGLOG 

KWLGLN 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  LOGLIN 

KWLIN 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  LIN 

KWLNLG 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  LINLOG 

KWLNLN 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  LINLIN 

KWLOG 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  LOG 

KWMNVL 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  MINVAL 

KWMP 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  MP 

KWMXVL 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  MAXBAL 

KWNDEX 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  INDEX 

KWNPTS 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  MPTS 

KWNXT 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  NXT 

KWOFF 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  OFF 

KWON 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  ON 
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/KWNAM4/  (Continued) 


Name 

KWPAGL 

KWPAGW 

kwpart 

kwpti 

KWPT2 

KWRADS 

KMREP 

KWRI 

KWR1-KWR20 

KWSAFE 

KWSGLE 

KWSPCM 

KWSVFN 

KWTLEX 

KWTLEY 

KWTMFL 

KWTMMN 


Function 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  PAGLEN 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  PAGWID 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  PART 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  PT1 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  PT2 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  RADS 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  REP 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  RI 

Contains  the  indexes  to  the  keyword 
table  for  the  keywords  R1-R20 

Contains  the  index  to  the  keyword 
table  for  the  keyword  SAFE 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  SINGLE 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  SPCM 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  SAVEFN 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  TITLEX 

Contains  the  pointer  to  the  keyword 
table  for  the  kevword  TITLEY 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  TIMFIL 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  TIMMIN 
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Table  23 


/KWNAM4/  (Concluded) 


Name 

Function 

KWTMMX 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  TIMMAX 

KWVPCM 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  VPCN 

P- 

Common  /KWNAM5/ 

COMHON/KMNAMS/KMAEFr  »KMALPH*KWCO  » KWC1 ♦KWC2»KWC3»KWD1 «KW02»KW03 
KWDlVtXWEPS.KWFLTF.KWFHAXtKWFMINtKrfHEIG*  KWLl»*WL2.<»IL3t 
K«L4*KrfLENG*KWMl*KrfM0DEtK*PHl»KWTAU»KWTHET  *K*WIDT*K«Z0» 
KWZOtKrfZStKWZT *KifANGL*KirfMEIG»KdFl  • KWdIWE*K»(DELT*KWDEPT . 
KWSIGH*KHA»KWB*KMC*K«N1 *KMN2»KXA1 *KWA2 

Common  block  KWNAM5  contains  the  keywords  used  as 

parameters  for  the  SLAM  functions. 

Table  24 

/KWNAM5/ 

Name 

Function 

KWA 

Contains  a pointer  to  the  keyword 
table  for  the  keyword  A 

KWAEFF 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  AEFF 

KWALPH 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  ALPH 

KWANGL 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  ANGLE 

KWA1-KWA2 

Contains  the  pointers  to  the  keyword 
table  for  the  keywords  Al,  A2 

KWB 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  B 

KWC 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  C 

KWC0-KWC3 

Contains  the  pointers  to  the  keyword 
table  for  the  keywords  CO  - C3 

KWDELT 

Contains  the  pointers  to  the  keyword 
table  for  the  keyword  DELTA 
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Table  24 


Name 

KWDEPT 

KWDIV 

KWD1-KWD3 

KWEPS 

KWFLTF 

KWFMAX 

KWFMIN 

KWF1 

KWHEIG 

KWLENG 

KWL1-KWL4 

KWMODE 

KWM1 

KWN1-KWN2 

KWPHI 


/ 


' 


/KWNAM5/  (Continued) 


Function 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  DEPTH 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  DIV 

Contains  the  pointer  to  the  keyword 
table  for  the  keywords  D1  - D3 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  EPS 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  FLTFRQ 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  FMAX 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  FMIN 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  FI 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  HEIGHT 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  LENGTH 

Contains  the  pointer  to  the  keyword 
table  for  the  keywords  LI  - L4 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  MODE 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  Ml 

Contains  the  pointer  to  the  keyword 
table  for  the  keywords  Nl,  N2. 

Contains  the  pointer  to  the  keyword 
table  for  the  keyword  PHI 


Table  24 


/KWNAM5/  (Concluded) 


Function 


KWSIGM 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  SIGMA 


KWTAU 


Contains  the  pointer  to  tne  keyword 
table  for  the  keyword  TAU 


KWTHET 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  THETA 


KWWEIG 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  WEIGHT 


KWWIDT 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  WIDTH 


KWWIRE 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  WIRE 


KWZO  and  KWZ0 


Contains  the  pointers  to  the  keyword 
table  for  the  keywords  ZO  or  Z0 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  ZS 


Contains  the  pointer  to  the  keyword 
table  for  the  keyword  ZT 


Common  /KWTASK/ 


COMMON/KWTASK/KWTSTB (400) 


Common  block  KWTASK  contains  the  task  tables  for  each 


system,  arithmetic,  and  SLAM  function. 

Each  function  is  parsed  from  the  information  given  in  the 
NCODE  and  NVAL  tables  according  to  the  rigid  structure  in  the  keyword 
task  table  (KWTSTB) . For  example,  the  TITLE  command  structure  is 


TITLE  DS,  FILE-SDSN,  HS 


r.  /U 


I 


where 


DS 

Defined  Symbol 

SDSN  - 

Symbol,  Defined  Symbol,  or  Number 

HS 

Hollerith  String 

When  the  TITLE 

command  is  parsed. 

it  is  placed  in  the  argument  list 

table  as  shown 

in  Table  25. 

Table  25 

ARGUMENT 

LIST  TABLE* 

• 

CODE 

• 

DEFINITION 

DS 

• 

9 

0<CODE<1000 

Pointer  to  the  symbol  table  for  the 

symbol  to  be  titled 

SDSN 

CODE<0,  *-999999 

Absolute  value  points  to  the  literal 
table  for  the  alpha  or  numeric  value 

HS 

CODE<0,  *-999999 

Absolute  value  points  to  the  literal 
table  for  the  pointer  to  the  Hollerith 
string  table 

TITLE 

1030 

Biased  code  for  the  keyword  TITLE 

EOS 

1007 

End  of  statement  code 

> 

. 

• 

• 

• 

• 

• 

• 

. 

• 

. 

. 

* Reference  Section  I-B  for  a description  of  how  the  argument  table  is 
built. 

If  a no-op  code  (-999999)  is  present  in  the  argument,  then  the 
parameter  for  that  position  was  not  given;  however,  it  is  up  to  the 
execution  phase  to  determine  whether  or  not  that  parameter  is  required 
or  optional. 
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r.  Common  /LOCDAT/ 

COMMON  /LOCDAT/  NUMOPS*  l3C0<*»2)«  ITYP-OU)*  NJMD<*)»  LN<<*> 
1 MAORI (A) 

Common  block  LOCDAT  maintains  the  current  linkage  to  the 

data  set  entries  in  blank  common. 


Table  26 
/LOCDAT/ 


Name 

ITYPED 


LNK 

LOCD 

MAGRI 

NUIID 

NUMCPS 


Function 


Contains  the  current  type  of  data 
being  requested  or  stored  on  random 
access.  A positive  number  indicates 
frequency  data,  a negative  number 
indicates  time  data, and  a zero 
indicates  that  the  data  is  an  inde- 
pendent or  a no-type  data  set 

Contains  the  pointer  to  the  symbol 
table  for  the  data  set  bei  .g  currently 
stored  or  fetched 

Contains  the  pointer  to  the  starting 
address  for  the  data  set  in  the 
array  BLNKCM 

Contains  the  attribute  of  the  data 
set  being  requested  or  stored  on 
random  access 

Contains  the  number  of  points  con- 
tained in  the  data  sets  being  stored 
or  requested  from  random  access 

Contains  the  number  of  data  sets 
that  are  being  manipulated  in  the 
array  BLNKCM  in  an  arithmetic  oper- 
ation 


s.  Common  /MSTRG/ 


COMMON  /MSTRG/  MSTNDX<22> .IUNDX (56) »IJN(20) »NJND*GETDATA» &UTDATA 
» OFET (25) *LIST0S< 

LOGICAL  LlSTOSK»GETOATA«PJTOATA 


Common  block  MSTRG  contains  all  Information  needed  for 
accessing  the  random  access  system  at  the  master  index  level. 


Table  27 
/MSTRG/ 

Name  Function 

DFET  Contains  the  pointer  to  the  name 

table  for  the  current  file  on  random 
access  being  used 

IUN  Contains  the  table  of  all  the  files 

that  are  active  on  the  random  access 


; IUNDX 


Contains  the  directory  of  all  of  the 
subelements  on  the  master  index 


MSTNDX 


Contains  the  master  index  of  the 
random  access  file  on  unit  99 


HUIID 


Contains  the  current  number  of  active 
files  on  random  access 


t.  Common/PLTFMT/ 

COMMON/PLTFMT/  SPX,  SPY*  AXISX*  AXISY*  3A5EX ♦ PAGEY 

Common  block  PLTFMT  contains  the  plot  format  data. 
All  data  is  expressed  centimeters. 


Name 

AXISX 

AXISY 

PAGEX 

PAGEY 

SPX,  SPY 


Table  28 
/PLTFMT/ 


Length  of 
Length  of 
Length  of 
Length  of 


Function 
the  X axis 
the  Y axis 

plot  page  along  X axis 
plot  page  along  Y axis 


X,  Y coordinates  on  the  plot  page 
for  the  intersection  of  the  X and  Y 
axis  (Lower  left  corner  of  the 
plot  frame) 
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u.  Common  /PLTLAB/ 

COMMON/PLTLAB/  LABX (2)  ♦ LABY<2).  LA8<34).  NXFMT.  NYFMT * PLTEWR 
LOGICAL  PLTERP 

Common  PLTLAB  contains  Hollerith  variables  used  to  specify 
plot  axis  and  frame  labels,  and  plot  axis  annotation  formats. 

Table  29 
/PLTLAB/ 


Name 

LAB 

LABX 

LABY 

NXFMT,  NYFMT 


PLTERR 


v.  Common  /PLTLGV/ 


Function 

Used  for  annotating  the  plot 

Contains  the  X axis  label 

Contains  the  Y axis  label 

Hollerith  variable  used  to  specify  the 
format  of  the  X and  Y axis  number 
annotations.  Formats  are  G,  E,  F,  and 
I.  Default  is  NXFMT  = 7H1PG12.2 

Logical  variable  used  to  indicate  a plot 
package  error.  .TRUE,  indicates  error 


COMMON/PLYLGV/  OLTLBL*  FULFWM*  NOZL.  LA3VRT ♦ NX10PW.  LA8PAG. 

1 LCUTMK.  LSONUM » STPFLG*  3LTI NG»  PLTOPN.  PLTCLO 

LOGICAL  PLTLBLt  FULFRM.  NOZL*  LABVRT * NX10PK*  LABPAG 
LOGICAL  LCUTH< * LSQNUM.  STPFLG.  PLTING.  PLTOPN.  PLTCLO 


Common  block  PLTLGV  contains  all  logical  variables  used  in  the 
plot  package  routines. 

Table  30 
/PLTLGV/ 

Neroe  Value  Function 

FULFRIl  .TRUE.  ^ Controls  the  generation  of  the  plot 

frame.  When  .TRUE,  a full  plot  frame, 
when  .FALSE,  onlv  X and  Y axis 
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Table  30 


Same 

LABPAG 

LABVRT 

LCUTMK 

LSQNUM 

NOZL 


NX10PW 

PLTCLO 

PLTING 

PLTLBL 

PLTOPN 

STPFLG 


Value 


.TRUE. 


.FALSE. 


.TRUE. 


.FALSE. 


•FALSE. 


.FALSE. 


/PLTLGV/  (Continued) 

Function 

Controls  plot  page  annotation 


Specifies  orientation  of  the  Y axis 
label.  When  .TRUE,  a vertical  Y axis, 
when  .FALSE,  a label  is  parallel  to  the 
Y axis 

Controls  generation  of  plot  cut  mark 
guides 

Controls  automatic  plot  sequence  number 
annotation 

Controls  automatic  generation  of  a zero 
reference  line  on  plots.  When  .TRUE, 
no  zero  reference  lines  will  be  drawn. 
When  .FALSE,  a zero  reference  line  will 
appear  only  when  any  Y values  are  less 
than  zero 

Controls  exponential  format  annotation 


.FALSE.  Indicates  the  plot  file  has  been  closed. 

Set  .TRUE,  when  CLOSEPP  is  called 


.FALSE.  Indicates  a plot  is  in  progress. 

If  .TRUE,  then  implies  that  a plot 
frame  has  been  drawn  and  plot  limits 
have  been  defined 


•TRUE.  Used  to  inhibit  plot  labels.  A .TRUE. 

causes  plots  to  be  labeled. 

.FALSE.  When  .TRUE,  indicates  a plot  file  has 

been  opened.  Set  .TRUE,  when  OPENPP 
is  called 


.TRUE. 


Indicates  how  plot  package  is  to  handle 
error  situations 
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w.  Common  /PLTCM1/ , /PLTCM2/,  /PLTCM3/,  and  /PLTCM4/ 

COMMON/PL fCMl/  TML»  HNO«  HL0*  HML » MDECXt  MDECY * MXI»  MYIt  CALCPt 
l PlOt  PDAT.  PTIM 

COMMON/PL TCM2/  C*»  LOGERR » IPGNUM.  LUNMPF * LUNPIF.  I BLNK * IMESG. 

1 XPSF * YPSF 

COMMON/PLTCM3/  XP*  YP*  BL»  IL.  SINAt  COSA*  ICHaR<20) 

C0MM0N/PLTCM4/  XHIN*  XMAX*  YMIN.  YMAX.  XS*  YS*  IDPCOMt  SFLX ♦ SFNX 

These  common  blocks  are  used  to  support  the  plot  package  when 
making  a METALIB  plot  file. 

Table  31 
/PLTCM1/ 


Name 

Function 

CALCP 

Resolution  of  CALCOMP  plotter  in  steps/ 
inch  (Default  is  100) 

HLB 

Height  of  plot  labels  in  cm 

HML 

Height  of  message  label  characters  in  cm 

HNO 

Height  of  axis  annotation  numbers  in  cm 

MDECX 

Maximum  number  of  decades  for  a logarithmic 
X axis  (Default  is  6) 

MDECY 

Maximum  number  of  decades  for  a logarithmic 
Y axis  (Default  is  6) 

MXI 

Maximum  number  of  intervals  along  the  X 
axis  (Default  is  10) 

MYI 

Maximum  number  of  intervals  along  the  Y 
axis  (Default  is  10) 

PDAT 

Hollerith  variable  containing  the  system 
data 

PID 

Hollerith  variable  containing  the  seven 
character  job  ID 

PTIM 

Hollerith  variable  containing  the  system 
time 

TML 

Length  of  plot  tic  marks  in  cm 
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Table  32 


/PLTCM2/ 


Name 


Function 


CW 

IBLNK 


Label  character  width  to  height  ratio 
<6./7.) 

Hollerith  variable  containing  10  blanks 


1MESG 

IPGNUM 

LOGERR 


LUNMPF 


Counter  for  the  number  of  messages  per 
plot 

Sequential  plot  page  number 

Hollerith  variable  used  to  specify  the 
method  for  handling  number  .LE.  0 when 
plotted  on  a logarithmic  axis.  This 
variable  can  be  user  specified  by 
calling  LSERR 

Contains  the  logical  unit  number  for  a 
METAPLOT  file 


LUNPIF  Contains  the  logical  unit  number  for 

plot  information  file 

XPSF,  YPSF  X and  Y plot  array  scale  factors.  (Scale 

factors  must  be  greater  than  zero. 

Default  is  1.)  Scale  factors  may  be 
set  by  the  user  through  a call  to 
RSCALE . Scale  factors  remain  in 
effect  until  another  call  to  RSCALE  is 
made 


Name 

COSA 

SINA 


HL 

I CHAR 


Table  33 
/PLTCM3/ 

Function 

Cosine  of  the  axis  angle 

Sine  of  the  axis  angle 

NOTE  - X axis  angle  = 0 degrees 
Y axis  angle  = 90  degrees 

Temporary  character  height 

Array  used  for  character  manipulation 
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Table  33 


/PLTCM3  (Concluded) 

Name  Function 

IL  Temporary  Integer  variable 

XP,  YP  Temporary  X and  Y pin  positions 


Table  34 
/PLTCM4/ 


Name 

Function 

IDPCOM 

Temporary  variable 
plot  ID  number 

for  user-supplied 

SFLX 

Scale  factor  for  X 
size 

axis  label  character 

SFNX 

Scale  factor  for  X 
size 

axis  number  character 

XMAX 

Maximum  plot  limit 

on  X axis 

XMIN 

Minimum  plot  limit 

on  X axis 

XS 

Distance  is  X data 
mark  length 

coordinates  for  tic 

YMAX 

Maximum  plot  limit 

on  Y axis 

YMIN 

Minimum  plot  limit 

on  Y axis 

YS 

Same  as  XS  but  for 

Y axis 

x.  Common  /TMPFIL/ 

COMMON  /TMPFIL/  JFET(2t  20) ♦ JUN1T(20)»  K JHSQF ( 20 > » JNUM,  jFIlE 

The  purpose  of  this  common  block  is  to  maintain  the  file  environ- 
ment tables  for  the  sequential  files  and  to  contain  the  list  of  active  sequen1 
tial  files  within  EXEMPT. 
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Table  35 


/TMPFIL/ 


Name 

Function 

JFET 

Contains  the  file  environment  table 
for  all  active  sequential  files 

JFILE 

Contains  the  pointer  to  the  file  envi- 
ronment table  for  the  current  active 
sequential  file 

JNUM 

Contains  the  number  of  active  sequential 
files 

JUNIT 

Contains  the  table  of  names  of  all  active 
sequential  files 

KURSQF 

Contains  the  table  that  keeps  track  of 
which  EOF  mark  each  sequential  file  is 
at 

y.  Common  /XQTTBL/ 

COMHON/XOTTBL/  MEOUAL.  IEOS.  LSTARG (256) ♦ MAXVAL.  NOGOFG*  NUMARG, 
1 ^ IPASS*  KWF'VSr*  KHFNNOt  ZOE3UG.  ZRANO 

LOGICAL  ZDE8JG.  ZRAND.  NOGOFG 


Common  block  XQTTBL  stores  temporary  information  for  the  execution 
of  the  user  s input. 


Table  36 
/XQTTBL/ 


Name 

Fu 

IEOS 

Contains  the 

IPASS 

Contains  the 

KWFNND 

Contains  the 

KWFNST 

Contains  the 

LSTARG 

Contains  the 
statement 
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Table  36 


Name 

/XQTTBL/  (Concluded) 

Function 

MAXVAL 

Contains  the 

maximum  number  of  fields 

in  the  table 

LSTARG 

NEQUAL 

Contains  the 

code  for  an  equal  sign 

NOGOFG 

Logical  flag 

that  when  true  means 

an  error  has 

occurred  in  execution 

NUMARG 

The  current  number  of  arguments 

within  the  table  LSTARG 

ZDEBUG 

Not  Used 

2 RAND 

Not  Used 

SECTION  III 
FUNCTIONAL  FLOWCHARTS 


1.  LOGICAL  OPERATIONS 

The  CLP  is  the  main  processor  controlling  the  execution  of  the  logical 
operations.  The  commands  are  either  processed  and  executed  within  the  CLP  or 
the  CLP  passes  control  to  other  routines.  The  logical  operations  are  grouped 
into  the  categories  of  sequential  I/O,  random  I/O,  and  coded  I/O. 
a.  Sequential  I/O  Function 

The  structure  of  the  sequential  file  is  in  terms  of  data  set. 

Motion  of  the  sequential  file  is  done  by  sets  rather  than  records.  A READ 
will  read  one  data  set  and  a WRITE  will  write  one  data  set. 

The  first  record  of  a set  will  contain  the  number  of  points,  data 
description,  date,  program  name,  and  the  title  information.  A time  domain 
data  type  will  have  two  other  records  and  a frequency  domain  data  type  will 
contain  three  other  records.  The  structure  of  these  data  types  are: 
a.  Frequency  Domain  Data  (Four  Records) 

1.  Record  1:  17  words  long 

(a)  One  word  integer  (N)  indicating  number  of  words 
in  each  of  the  following  records. 

(b)  One  word  containing  data  description  in  CDC  display  code. 

(c)  One  word  containing  data  description  of  data  values  are 

8HMAGPHASE , 8HREALIMAG,  7HDBPHASE. 

(d)  One  word  containing  a data  in  display  code. 

(e)  One  word  containing  display  code  or  name  of  program  which 

wrote  data  file  (e.g.,  7HSCEPTRE , 6HSYNAP , etc.) 

(f)  Set  attributes. 

(g)  12  words  of  title  information  in  CDC  display  code. 

2.  Record  2:  N words  long  containing  the  array  of  frequency 

points . 

3.  Record  3:  N words  long  containing  the  real  or  amplitude  of  a 

frequency  function. 

4.  Record  4:  N words  long  containing  the  imaginary  part  or  phase 

of  a frequency  function. 
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b.  Time  Domain  Data  (Three  Records) 


17  words  long;  same  as  for  frequency  data. 

N words  long  containing  the  array  of  time  point. 
N words  long  containing  the  values  of  the  time 


1 . Record  1 

2.  Record  2 

3.  Record  3 

functon. 

The  sequential  file  I/O  functions  are  preprocessed  within  SEQCMD 
prior  to  calling  the  sequential  file  driving  routine  EXINTO.  This  routine  is 
responsible  for  all  sequential  file  manipulations  in  the  format  described 
above.  Figures  11  to  15  are  functional  flowcharts  of  all  the  sequential  file 
I/O  operations  available  within  EXEMPT. 

b.  Random  I/O  Functions 

The  random  I/O  functions  determine  the  type  of  the  data,  the  format 
of  the  data,  how  the  data  are  stored,  and  other  information  required  by  the 
user.  Again,  these  functions  are  controlled  by  the  CLP  which  calls  the 
routines  necessary  for  executing  the  random  I/O  functions.  The  flowcharts 
for  these  functions  are  shown  in  Figures  16  to  23. 

c.  Coded  I/O  Functions 

Provided  within  these  functions  are  the  plotting,  printing,  punching, 
and  card  reading  functions  for  the  user.  These  functions  are  illustrated  in 
Figures  24  to  27. 

2.  SLAM  FUNCTIONS 

When  a SLAM  function  is  detected  in  the  CLP,  control  is  immediately 
passed  to  the  SLAM  function  processor  (SUBDRV)  for  processing.  The  function 
of  this  processor  is  illustrated  in  Figure  28.  The  first  operation  is  to 
initialize  the  global  real  array  to  zeros.  The  global  real  array  is  used  to 
pass  all  the  optional  parameters.  If  a parameter  is  missing,  then  the  entry 
in  the  global  real  array  for  that  parameter  remains  zero.  When  a SLAM  function 
detects  a zero  entry,  a default  value  is  assigned  to  that  parameter. 

After  the  input  and  output  data  set  names  have  been  determined,  then 
control  is  passed  by  a computed  GOTO  to  the  appropriate  section  of  code  in 
SUBDRV  for  preprocessing  of  the  SLAM  function.  This  entails  fetching  a 
global  independent  (TIME  or  FREQ),  error  checking,  and  fetching  the  input 
data  sets.  The  SLAM  function  is  then  called  with  the  global  real  array, 
independent  array,  and  the  specified  input  and  output  data  sets.  When  the 
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VERIFY  FILE 
SPECIFIED  IS 
PROPER  TYPE 
(VERIFY) 


READ  DATA  SET  FROM 
FILE  SPECIFIED 
(EXINTO) 


UPDATE  SYMBOL  TABLE 
FROM  FIRST  RECORD 
OF  DATA  SET 


Figure  11.  READ  Function  Flowchart 

I 


72 


SEQUENTIAL  FIL 
PREPROCESSOR 
(SEQCMD) 


Figure  13.  DROP,  EOF,  and  REWIND  Function  Flowchart 


Figure  14.  SKIPB  Function  Flowchart 
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UPDATE  SYMBOL  TABLE 
WITH  ALL  DATA  SETS 
ON  FILE 
SPECIFIED 
(RDFCMD) 
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I 


PERFORM 

NEXT 

STATEMENT 


UPDATE  INDEPENDENT 
WITH  DATA  SET 
SPECIFIED 
(RDFCMD) 


Figure  20.  READF  Function  Flowchart 
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Figure  21.  TITLE  Function  Flowchart 
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11 


1 


c 


CLP 

(EXECUT) 


SET  FLAGS  FOR 
S I NGLE=ON , OFF  AND 
I NDPNT=ON . OFF 
(PCHCMD) 

HT  \ 


FETCH  NEXT 


Figure  26.  PUNCH  Function  Flowchart 
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plot  driver 
(PLTDRV) 


RETRIEVE  AXIS 
TYPES  ANO  TITLES 


FIND  THE  MINIMUM  AND 
RAX  I NUN  OF  ALL  OATA 
(ENOPTS) 


CONVERT  OATA  TO  RAG/PMASE 
OR  OB/PHASE 
(CONVRT) 


FIND  THE  MINIMUM 
AMO  MAXIMUM  OF 
THE  CURRENT  OATA  SET 
(ENOPTS) 


CREATE  A METAL  1 1 riLE 
FOR  LATER  PROCESSING  TO 
PROOUCE  CALCOMP.  yFILM.  OR 
ELECTROSTATIC  PLOTS 
(PIT) 


determine  range  or 

VALUES  IN  LINEAR  STEPS 
(SCALE2) 


DETERMINE  RANGE  OF 

VALUES  IN  LOGARITHMIC 

STEPS 
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DETERMINE 
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STl 
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RANGE  OF 
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PS 

IM) 

determine  range  or 
values  in  LINEAR  steps 
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Figure  27.  PLOT  Function  Flowchart 
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SLAM  function  has  been  completed,  the  output  arrays  are  stored  in  the  random 
access  system  via  the  subroutine  SAVDAT  and  control  returns  to  the  CLP  for 
processing  the  next  input  statement. 

3.  ARITHMETIC,  FORTRAN,  OR  EXEMPT  FUNCTIONS 

All  ECL  containing  an  equal  sign  as  the  second  entry  and  those  containing 
the  CALL  statement  are  processed  in  EXPDRV.  The  function  of  this  processor 
is  illustrated  in  Figure  29.  The  argument  list  is  a RPN  stack,  thus  the 
operator  follows  the  operands.  As  each  operator  and  its  operands  are  retrieved 
and  executed,  their  positions  in  the  stack  are  set  to  zero.  If  an  operator 
has  a parameter  list,  these  positions  are  also  set  to  zero.  After  the  operator 
is  determined,  the  number  of  parameters  and  operands  are  retrieved  from  the 
NTSFMT  array.  The  parameter  list  is  loaded  on  the  table  immediately  preced- 
ing the  operator  and  the  next  operands  encountered  going  back  up  the  stack 
are  associated  with  the  operator.  The  result  of  any  operator  is  saved  in  a 
temporary  array  for  use  with  the  next  operation.  If  the  resultant  is  not 
used,  it  is  stored  as  a symbol  with  a negative  integer  for  the  name.  This 
will  not  conflict  with  user  specified  symbols  since  they  will  always  be 
represented  as  positive  integers  within  EXEMPT. 

If  the  operator  corresponds  to  an  EXEMPT  library  function,  any  resultant 
data  are  stored  and  control  is  transferred  to  the  appropriate  interface 
routine  to  retrieve  the  data  and  perform  the  operation.  Upon  return  to 
EXPDRV,  the  independent  data  will  be  stored  unless  a previous  operation 
defined  the  independent  data. 

For  all  other  operations,  EXPDRV  will  retrieve  the  operands  and  will 
identify  the  first  independent  data  set  encountered  as  the  independent  data 
to  be  associated  with  the  expression's  resultant  data  set.  Subroutine  ARITHOP 
is  called  for  all  FORTRAN  and  arithmetic  operations.  When  the  replacement 
operator  (=)  is  encountered,  the  data  associated  with  operands  are  retrieved 
and  stored  as  the  dependent  data  of  the  resultant  data  set  name.  If  an 
independent  array  has  been  identified,  then  the  resultant  data  set  is  properly 
typed  and  the  independent  data  retrieved  and  restored  as  the  independent  data 
of  the  resultant  data  set  name. 
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EXPRESSION 
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LOADING  LIST 
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NEXT  stack  entry  literal 
OR  SYMBOL  TABLE  POINTER 


NO  o , >v  VES 


Figure  29.  ARITHMETIC  Function  Flowchart 
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SECTION  IV 

CDC  6600  AND  7600  REQUIREMENTS 

The  purpose  of  this  section  is  to  give  the  user  an  understanding  of  the 
differences  between  the  CDC  6600  and  7600  in  regard  to  EXEMPT.  The  areas  of 
discussion  will  be  the  segmentation  loader  of  the  CDC  6600  to  the  7600,  the 
conversion  of  EXEMPT  from  the  CDC  6600  to  the  7600,  and  the  building  of  the 
EXEMPT  absolute  file. 

1.  6600  TO  7600  CONVERSION  REQUIREMENTS 

Currently,  EXEMPT  resides  on  the  CDC  6600  as  a permanent  file.  However, 
transferring  EXEMPT  to  the  7600  does  not  pose  a problem  (short  of  a major 
system  change).  The  procedures  are  given  in  the  system  bulletin  (SYSBULL) 

7600  or  may  be  obtained  from  the  consulting  group  at  Kirtland  Air  Force  Base. 

Transferring  UPDATE  PL's  (Program  Libraries)  between  the  7600  and  6600 
may  be  done  by  following  two  procedures: 

a.  Establish  a sequential  PL  on  either  system.  If  the  PL  was  created 
directly  on  magnetic  tape,  it  is  sequential.  On  disk,  the  W parameter 
must  be  used  when  creating  a NEWPL  to  make  it  sequential. 

b.  Use  7600  UPDATE  to  modify  the  file  format  of  the  PL.  6600  UPDATE 
does  not  use  record  manager  and  is  limited  to  RT=S,  BT=C  file 
formats  for  PL's. 

The  following  example  will  illustrate  the  procedure. 

A PL  resides  on  a permanent  file  on  the  6600.  A separate  job  on  the 
6600  must  be  run  to  prepare  it  for  the  7600. 

ATTACH,  0DPL,  PFN  (PARAMETER  LIST). 

REQUEST,  NEWPL,  *PF. 

UPDATE  (F,N,W) 

SAVEPF,  NEWPL,  PFN  (PARAMETER  LIST). 

The  7600  will  use  the  above  file  by: 

ATTACH,  0LDPL,  PFN  (PARAMETER  LIST). 

FILE  (0DPL,  RT=S)  BT=C  IS  DEFAULT 

UPDATE  (F, ) 
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2.  6600  AND  7600  SEGMENTATION  DIRECTIVES 


The  primary  differences  between  the  two  systems  is  how  each  loads  the 
system  support  routines  and  common  blocks.  As  can  be  seen  by  comparing  the 
Figures  30  and  31,  the  differences  are  significant.  Only  two  system  common 
blocks  need  be  loaded  on  the  7600;  whereas  on  the  6600  the  main  segment  must 
include  almost  every  system  routine  referenced. 

If  the  user  wishes  to  change  to  the  segmentation  directives,  the  CDC 
loader  manuals  should  be  consulted  first  for  the  proper  formatting  of  the 
directives  available. 

3.  BUILDING  EXEMPT  ABSOLUTE  FILE 

Once  the  user  has  the  0LDPL  and  the  segmentation  directives,  the  EXEMPT 
absolute  file  may  be  created.  The  first  requirements  is  to  make  the  EXEMPT 
0LDPL  a binary  file.  This  may  be  done  by: 

ATTACH,  0LDPL,  PFN  (PARAMETER  LIST). 

UPDATE  (F,  N) 

REQUEST,  LGO,  *PF. 

FTN  (I,  S=SYSTEXT,  S=IPTEXT) 

CATALOG,  LGO,  PFN  (PARAMETER  LIST). 

Once  the  binary  has  been  created  then  the  absolute  file  may  be  created 
as  shown  in  Figure  32.  However,  if  the  user  wishes  to  use  C0PYL  SCOPE  utility 
(in  the  case  of  modifying  or  adding  a user  defined  subroutine)  then  the  job 
stream  flow  of  Figure  33  should  be  followed.  Note  that  the  METALIB  library 
is  always  loaded.  This  is  due  to  the  fact  that  the  EXEMPT  plot  routines 
reference  the  METALIB  routines. 
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MAIN  SEGMENT  EXEMPT  RQuTInES 
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Figure  30.  6600  Segmentation  Directives 
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Figure  31.  7600  Segmentation  Directives 
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Figure  32.  Creating  an  EXEMPT  Absolute  File 
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Figure  33.  Absolute  File  With  a User-Defined  Subroutine 


